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CPU é uma publicação da Águia Informa li ca. 
Todos os direitos reservados. Proibida a 
reprodução parcial ou total do conteúdo desta 
revista por qualquer meio sem autorização 
expressa da editora. 

Os artigos assinados são de total e única re- 
sponsabilidade dos autores. 
Os circuitos, dispositivos, compoentes, etc., 
descritos na revi st a podem estar sob a proteção 
de patentes. Os circuitos publicados só 
poderão ser confeccionados sem qualquer fim 
lucrativo. 

Os programas apresentados aos leitores, 
mesmo se fornecidos em disqute, são de pro- 
priedade dos autores, cabendo a eles lodos os 
direitos previstos em lei. 



EDITORIAL 

O ano de 1988 está chegando ao final e, apesar de ter sido 
um ano cheio de surpresas económicas e políticas, na área do MSX não 
podemos verificar lançamentos de hardware por pane dos fabricantes 
que lançaram o padrão no Brasil e que anunciaram uma série de 
periféricos para a linha. O lançamento de periféricos ficou a cargo de 
empresas que acreditam no desenvolvimento do MSX no Brasil. 

Na área de software podemos dizer que o mercado está a 
pleno vapor, com Concursos de Software e lançamento de programas 
novos, desenvolvidos no Brasil, visando a atender as as nossas neces- 
sidades e de acordo com as características técnicas dos equipamentos 
brasileiros. 

A área editorial também vem apresentando um desen- 
volvimento significativo, com lançamento de livros de excelente quali- 
dade e conteúdo praticamente todos os meses. 

No número anterior de CPU, tivemos alguns problemas 
com a gráfica que efetuou a impressão da revista. Algumas falhas 
também foram constatadas nas listagens, isto porque, a partir doquarto 
número, toda a diagramação passou a ser feita através de processo 
eletrônico, inclusive as listagens que receberam tratamento idêntico ao 
texto. A partir deste número continuamos a utilizar processos 
eletrõnicos para a diagramação da revista, sendo que as listagens dos 
programas utilizadas foram impressas em uma impressora comum. 
Neste número publicamos novamente as listagens do número anterior 
que podem ter ocasionado dificuldades na leitura. 

Aproveito a oportunidade para.emnomedelodaaequipe 
de CPU, desejar um Feliz Natal e Próspero Ano Novo. 

Nos encontraremos novamente em janeiro, no sexto 
número de CPU, que continuará crescendo como sempre. 

GONÇALO MURTEIRA 
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MSX NEWS 



NEWSOFT 

A Newsoft, empresa pioneira 
no Rio de Janeiro em distribuição de soft- 
ware para a linha MSX, baseada em uma 
nova politica empresarial, lança em todo o 
País o 1 Concurso Nacional de Software, 
para MSX, com o intuito de descobrir e 
revelar novos talentos no mercado de soft- 
ware. 

O evento conta com o apoio do 
Cartão Nacional, que fará a distribuição 
dos prémios aos ganhadores. 

Todos os detalhes do concurso 
podem ser encontrados neste número de 
CPU. 

A Newsoft também está ven- 
dendo diversos periféricos para a linha a 
MSX com a vantagem de o cliente poder 
pagar com o seu Cartão Nacional, tendo, 
portanto, até 30 dias para pagar. 

Esta vantangem também é ex- 
tendida para a compra de jogos e aplicati- 
vos. 

Em breve, a Newsoft estará em 
novoendereço, com modernas instalações, 
aprimorando o atendimento e a qualidade 
que sempre dispensou à sua clientela. 



EDITORA ALEPH +50 DICAS 

Será lançado, pela Editora 
Alcph, de São Paulo, o livro "+50 DICAS 
PARA MSX". 

O livro vem a atender pedidos 
dos leitores do "CEM DICAS PARA 
MSX", que é um dos livros indispensáveis 
para quem tem MSX c programa, e apre- 
senta 50novas rotinas que poderão ser utili- 
zadas pelos programadores. 

Além de apresentar os pro- 
gramas, os autores fazem uma descrição 
completa dc como chegaram aquele pro- 
grama, tomando, assim, muito mais fácil a 
asimilação por parte do leitor da ideia do 
autor e facilitando o seu uso posterior. 



NASHUA 

A Nashua iniciará, em breve, a 
produção de disquetes de 5 1/4" no Brasil, 
visando a atender o mercado nacional. 



TELCON - MODEM DE DISCAGEM 
AUTOMÁTICA 

Foi lançado pela Telcon 
Telemática, empresa dc Porto Alegre, que 
lançou, já há algum tempo atrás o Multi- 
modem, um modem de discagem 
automática. O produio estará brevemente 
disponível nos revendedores autorizados 
da TELCON. 

Os modens da Telcon permitem 
a conexão do MSX com o Videotexto, 
Cirandao e comunicação Micro a Micro, 
possuindo software, desenvolvido pela 
própria empresa, podendo ser utilizado 
tanto pelos usuários de unidade de disco ou 
fita. 



NEMESIS 

A Nemesis está lançando uma 
série de programas aplicativos novos , dos 
quais podemos destacar o Page Maker, o 
Portfolio, que vem a ser uma agenda com- 
putadorizada, com calendário perpétuo e O 
Hello, que vem a ser um sistema opera- 
cional que simplifica todas as funções de 
operação com disco, possuindo ainda testes 
de Hardware, tais como: velocidade de 
rotação de drive, alinhamento radial de 
cabeçote, teste de RAM e VRAM, mos- 
trando o mapa de ocupação do disco e 
diversas outras funções. 
O telefone da Nemesis é (021) 222-4900 



CHAMPION SOFTWARE 

A Champion Software, empresa 
Paulista da área de software, eslá de 
mudança marcada para breve. 
O novo endereço da Champion será: 

Rua Clélia 1837 
Lapa -São Paulo - SP 



MSX WORD — — — 

A Ciência Moderna acaba de 
lançar o livro "MSX WORD - das versões 
1.6 à 3.0", de autoria de Sérgio Guy Pin- 
heiro Elias c Paulo Roberto Pinheiro Elias, 
autores do Livro "dBase II Plus para 
MSX", também da Ciência Moderna e já 
analisado em CPU. 

O MSX Word vem sendo desen- 
volvido pela Cibenron, que lançou há 
pouco tempo a versão 3.0 (veja CPU 
número 04) e , sem sombra de dúvida , é 
o processador de texto mais utilizado pe- 
los usuários do MSX, sendo baseado no 
TASWORD, da Tasman Software Ltd. 

Neste livro, os atorcs publicam 
as especificações técnicas mais importan- 
tes e uma documentação completa de como 
adaptaro MSX- WORD de qualquer versão 
às características da impresora do usuário. 

De nada adianta ter um ex- 
celente software se não sabemos os seus 
comandos e dc como proceder para tirar o 
melhor proveito do programa c ter um 
rendimento dc 100%. 

Da forma que o livro é apresen- 
tado substitui com inúmeras vantagens o 
manual que acompanha o software e, cer- 
tamente, é um investimento que será rapi- 
damente recuperado. 

A Ciência Moderna fica situada 
à Av. Rio Branco 156 loja 127 Rio dc 
Janeiro - RJ - 20043 - Telefones: 021- 
262.5723 e 021-240-9327 - atendendo a 
pedidos de todo o Brasil, possuindo, além 
deste, todos os demais livros disponíveis, 
atualmente, para MSX. 



UM TECLADO INTELIGENTE 
PARA O MSX 



Uma grande quantidade dos aluais usuários dc MSX se 
iniciou no mundo da informática com um pequeno Sinclair (TK 82, 
TK85 ou CP 200). 

Assim sendo, as comparações sào inevitáveis. O MSX, 
obviamente, ganha de longe, por ser uma máquina de muito maior 
porte e recursos. Apesar disso, alguma saudadezinha do pequeno 
SINCLAIR ainda sobra, pois, com uns miseráveis 8K de ROM 
(comparados aos 32K da ROM do MSX!) fazia algumascoisas que 
o MSX não faz. Uma delas, por exemplo, era a poderosa função 
VAL. 

No MSX, a string que serve de argumento ao VAL deve 
conter exclusivamente caracteres de algarismos (os outros são 
ignorados). No SINCLAIR ela pode conter qualquer coisa (al- 
garismos, variáveis, fórmulas, ele), de maneira a substituir, com 
vantagem, o comando DEFFN. 

O MSX, em compensação.é uma máquina versátil. Tão 
versátil a ponto de poder ser configurada para poder fazer coisas 
para as quais não foi projelada. 

Ela é a concretização do sonho de qualquer programa- 
dor (especialmente em Basic e Assembly). Só para exemplificar, 
desenvolvemos uma rotina que permite emular os recursos do 
VAL do SINCLAIR no MSX e que será brevemente publicada no 
livro "+50 dicas para MSX". 

Esta versatilidade pode chegaras raias do absurdo: num 
ataque de extremado saudosismo, os programadores de uma 
softhouse, a XSM (até no nome fazem o MSX plantar bananeira!) 
desenvolveram um EMULADOR SINCLAIR, programa que sim- 
plesmente transforma o MSX nun SINCLAIR, lendo e rodando as 
fitas de toda uma biblioteca de programas que estava mofando em 
alguma gaveta esquecida. 

Dentro desta onda de "saudosismo", resolvemos 
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escrever esta matéria: uma das queixas dos "sinclaristas" em 
relação ao MSX é referente ao tempo dc digitação de longos 
programas em BASIC. Afinal de contas, no SINCLAIR bastava 
apertar uma tecla (ou uma combinação dc teclas) para que na tela 
aparecesse toda a palavra reservada. Se, no começo de uma linha 
de BASIC, digitássemos Y, apareceria o RETURN, enquanto que 
no MSX c necessário digitar letra por letra: R-E-T-U-R-N. 

O problema é parcialmente contomável se atribuímos 
às teclas de função (Fl a FIO) as palavras reservadas mais frequen- 
tes. Assim mesmo, estaremos limitados a apenas 10. 

Porque não aproveitar a versatilidade do MSX para 
configurar seu teclado dc maneira a emular o do SINCLAIR. 

Aproveitando a tecla SELECT do Expcrt (SLCT do 
Hotbit), que não 6 usada quando se está no modo edição de um 
programa em BASIC, elaboramos uma rotina em Linguagem de 
Máquina que reconfigura o teclado de maneira a produzir uma 
palavra reservada toda a vez que a tecla Select c pressionada 
simultaneamente à de uma letra. As combinações que geram as 
palavras reservadas estão listadas na figura 1 

Esta rotina foi incialmenle publicada no livro "100 
DICAS PARA MSX", na página 15, tendo sido introduzidas, 
apenas, algumas pequenas modificações para reduzir as chances 
de erro na digitação. 

Digite, portanto, o programa da figura 2, tomando 
bastante cuidado com os códigos hexadecimais das linhas DATA. 

Como o programa não é muito curto, grave-o 
periodicamente, durante a digitação, para não perder todo o tra- 
balho em caso dc falta de energia elétrica (ou sobrinhos irriquietos 
tropeçando no fio da tomada!). 

Quando o programa estiver pronto e gravado, digite 

RUN. 
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GAMA SOFTMEWS. Aqui 

MSX Noticias sobre o CURSO GAMA DE BASÍC. o 
por correspondência do Brasil. GAMA TELESOFT. saioa como rece 
ber pela GAMA SOFTWARE os seus programas gravados em disco, 
através do telefone GAMA HARDWARE, como adquirir toda a linha 
de periféricos e suprimentos para o seu MSX. através do correio. E a 
linha pioneira de programas para MSX e para o MSX 2. que assim co- 
mo o GAMA TELESOFT é uma inovação eiclusiva da sua GAMA 
SOFTWARE. 
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L=12:SCREEN 0:UIDTH 40 

FOR E=8HD000 TO 8HD1D7 STEP 8 

S=8 

FOR X»E TO E+7 

READ C1:Y=VAL<"6H"+CÍ> 

S=S+Y 

POKE X,Y 

NEXT X 

L=L+1 

PRINT UBING"tt(t";L; :PRINT"="; 
RINT USING"Ht*HH"íS? :PRINT" "; 
NEXT E 
GOTO 73 

DATA 21, 9B, Di, CD, CE, Dl, 21, lé 
DATA D8,22,A5,FD,3E,C3,32,A4 
DATA FD,AF,32,D7,Di,C9,4F,3A 
DATA D7, Dl, A7, 79, 28, 65, FE, 18 
DATA 28, 49, C9, FE, 41, 38, 3D, FE 
DATA 5B, 30, 08, D6, 40, 47, 21, 72 
DATA DO, 18, OE, FE, 61, 38, 2D, FE 
DATA 7B ,30,29, D6, 60, 47,21 , 0B 
DATA Di,7E,A7,23,20,FB,10,F9 
DATA 3E,C9,32,A4,FD,7E,A7,28 
DATA 06,CD,A2,00,23,18,F6,3E 
DATA C3,32,A4,FD,AF,32,D7,D1 
DATA C1,C3,DA,08,4F,AF,32,D7 
DATA D1,79,C9,3E,FF,32,D7,D1 
DATA AF,C9,00,4E,45,57,00,42 
DATA 45,45,50,00,43,4F,4E,S4 
DATA 00, 44, 49, 4D, 20, 00, 52, 45 
DATA 4D, 20, 00, 46, 4F, 52, 20, 00 
DATA 47,4F,54,4F,20,00,47,4F 
DATA 53, 55, 42, 20, 00, 49, 4E, 50 
DATA 55, 54, 20, 00, 4C4F, 41, 44 
DATA 20, 00, 4C, 49, 53, 54, 20, 00 
DATA 4C,4C,49,53,54,20,00,4D 
DATA 4F,54,4F,52,20,O0,4E,45 
DATA 5S,54,20,00,50,4F,4B,45 
DATA 20, 00, 50, 52, 49, 4E, 54, 00 
DATA 50,53,45,54,20,28,00,52 
DATA 55, 4E, 00, 53, 41, 56, 45, 20 
DATA 00,54,52,4F,4E,00,49,46 
DATA 20, 00, 43, 4C, 53, 00, 50, 52 
DATA 45,53,45,54,20,28,00,43 
DATA 4C, 45, 41, 52, 00, 52, 45, 54 
DATA 55, 52, 4E, 00, 45, 4E, 44, 00 
DATA 00, 46, 52, 45, 28, 00, 49, 4E 
DATA 4B, 45, 59, 24,00, 44, 53, 4B 
DATA 46, 28, 00, 41, 54, 4E, 28, 00 
DATA 54, 41, 4E, 28, 00, 53, 47, 4E 
DATA 28,00,41,42,53,28,00,53 
DATA 51,52,28,00,41,53,43,28 
DATA 00, 56, 41, 4C, 28, 00, 4C, 45 
DATA 4E, 28, 00, 55, 53, 52, 00, 33 
DATA 2E, 31, 34, 31, 35, 39, 32, 37 
DATA 2i,00,4E,4F,54,00,50,45 
DATA 45, 4B, 28, 00, 54, 41, 42, 28 
DATA 00, 53, 49, 4E, 28, 00, 49, 4E 
DATA 54, 28, 00, 53, 54, 52, 49, 4E 
DATA 47, 24, 28, 00, 52, 4E, 44, 28 
DATA 00,43,48,52,24,28,00,56 



61 DATA 41,52,50,54,52,28,00,43 

62 DATA 4F, 53, 28, 00, 45, 58, 50, 28 

63 DATA 00, 53, 54, 52, 24, 28, 00.4C 

64 DATA 4E, 28, 00.0C, 50, 72, 6F, 67 

65 DATA 72, 61, 6D, 61, 20, 65, 73, 63 

66 DATA 72, 69, 74, 6F, 20, 70, 6F, 72 

67 DATA 3A,0D,0A,54,4B,45,20,50 

68 DATA 49,4C,4F,54,20,65,6D,20 

69 DATA 4A,6i,6E,65,69,72,6F,2F 

70 DATA 31,39,38,3B,2E,00,7E,A7 

71 DATA C8,CD,A2,00,23,18,F7,00 

72 DATA FIM 

73 PRINT:PRINT:PRINT"CONFIRMA?<S/N>" 

74 AÍ=INPUTÍ(i> 

75 IF AÍ="S" OR Aí="s" THEN GOTO 79 ELSE 
INPUT"EM QUE LINHA TEM ERRO" ;L 

76 LOCATE 0,20 

77 PRINT "LIST";L;"!REM-TECLE RETURN!" 

78 LOCATE 12,17:ST0P 

79 DEFUSR=8HDO00:POKE 0, USR < 0 > : PR INT :PR I 
NT 

80 FOR 1 = 65 TO 90:PRINT "< SELECT >+"CHR*< 
II;" = ";CHR4<24> ;CHRÍ ( I ) : FOR T=0 TO 108 
:NEXT T:NEXT I 

81 FOR 1=97 TO 122:PRINT "< SELECT >+"CHR* 
<I>;" = ";CHRI<24> ;CHR4(I ) :FOR T=0 TO 10 
0 ! NEXT T ! NEXT I 

82 END 
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PEÇA O NOSSO SUPER 
CATÁLOGO GRÁTIS! 
TEMOS APPLE * TAMBÉM! 



APLICATIVOS _ BOO 

COPIADORES _ 1000 

cp/m _ looo 

PREÇO DO Dl SCO _ TC 
PREÇO DA FITA 800 




SUPER PACOTES 











10 jogos — ape 


nas 2. 200 
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(disco incluído) 




2 disco cheios - 3.200 


PACOTE 


N° 2 


1 PACOTE N s 5 


10 jogos — apenas 2.700 


Aplicativo + copiador — 


fita incluída) 




. 1.800(disco incluído) 


PACOTE 


N'3 1 


1 PACOTE N«6 


MSX TOOLS I e 




10 Aplicativos + disco — 


3.200 disco ind 


Ido) 


apenas 5.800 



LANÇAMENTOS DO MES 

TRANTOR • ELITE • BKT II ■ THUNDER BOOK • HARD 
COPY • IMAGINE (EXCLUSIVO ) 



A cada 5 programas escolha 1 grátis 

i ouiros estados, os pedidos deverão sei laitoi airavès de cheuqe 
linal e cruzado a tvtARCO ANTONIO TROVÃO VAZ. R. Carvalho 
n 27B/501 , Rio de Janeiro, RJ. CEP 20510 Tel.: (021) S\ 



<SELECT>+A 


= 


NEW 


< 


SÉLÊcT>+a 


= 


FRtc 


<SELECT>+E 


= 


EEEP 


< 


SELECT>+b 


= 


INKEVf 


<SELECT>+C 


— 


CONT 


C 


SELECT>+c 


= 


PSKF< 


<SELECT>+P 


— 


DIM 


< 


SELECT>+d 


= 


ATN< 


<SELECT>+E 


— 


REM 


< 


SELECT>+<? 


= 


TAN< 


<SELECT>+F 


= 


FOR 


< 


SELECT>+f 




SGN< 


<SELECT>+6 


— 


60T0 


< 


SELECT>+g 


= 


ABS< 


<SELECT>+H 


— 


60SUE 


< 


SELECT>+h 


= 


SQRC 


<SELECT>+I 


= 


INPUT 


< 


SELECT>+i 


= 


ASCÍ 


<SELECT>+J 


— 


LOAÍ 


< 


SELECT>+; 


= 


VAU 


<SELECT>+K 


= 


LIST 


< 


SELECT>+k 


— 


LENC 


<SELECT>+L 




LLIST 


< 


SELECT>+1 


= 


USR 


<SELECT>+M 


= 


MOTOR 


< 


SELECT>+m 


= 


3.1415927! 
NOT 


<SELECT>+N 


— 


NEXJ 


< 


SELECT>+n 




<SELECT>+0 


= 


POKE 


< 


SELECT>+o 




PEEKÍ 


<SELECT>+P 


= 


PR I NT 


< 


SELECT>+p 


= 


TAEC 
SIN< 


<SELECT>+Q 


= 


PSET í 


< 


SELECT>+q 


= 


<SELECT>+R 


= 


RUN 


< 


SELECT>+r 


— 


INT< 


<SELEÍT>+S^ 


— 


~mJE 
TRON 


< 


SELECT>+s 


— 


STRING$< 


<SELECT>+T 


= 


< 


SELECT>+t 


— 


RND< 


<SELECT>+U 




IF 


< 


SELECT>+u 
SELECT>+m 


— 


CHRÍÍ 


<SELECT>+y 


— 


CLS 


< 


= 


UARPTRC 


<SELECT>+W 


— 


PRESET C 


< 


SELECT>+w 


— 


cos< 


<SELECT>+X 
<SELECT>+V 


= 


CLEAR 


< 


SELECT>+x 


— 


EXP< 


— 


RETURN 


< 


SELECT>+y 




STRtí 


<SELECT>+Z 


— 


EHD 


< 


SELECT>+z 


— 


LHÍ 



Deverá aparecer na tela a figura 3 pedindo confirmação. 

Confira cuidadosamente todos os números da sua tela 
com os da figura 3. Se algum deles não bater, você poderá achar 
rapidamente a linha na qual o erro foi cometido. 

FIGURA 3 



19= 952 26= 
24=1311 25= 
29= 401 30= 
34= 3S0 35= 
39= 470 40= 
44= 527 45= 
49= 499 50= 
54= 411 55= 
59= 415 60= 
64= 538 65= 
69= 759 70= 



21=1035 
26=1322 
31= 495 
36= 503 
41= 466 
46= 412 
51= 458 
56= 439 
61= 500 
66= 815 



22=1063 
27= 676 
32= 497 
37= 507 
42= 420 
47= 495 
52= 412 
57= 425 
62= 479 
67= 418 



Digamos, por exemplo, que você obieve a leia dá figura 4. 

Checando esta tela com a da figura 3, você percebe que 
na sexia linha, ao invés de aparecer 39=470, está 39=473. 

Consequentcmcnie, você não confirmará a digitação, 
teclando N (de Nao). 



FIGURA 4 



Basta, então, checar a linha listada com sua correspon- 
dente à listagem da figura 2. Leve o cursor até o erro e corrija-o. 
Nonossoexemplo, um fi foi confundido com um B (figuraó). Após 
a correçâo, lecle RETURN e rode o programa novamente. Repita 
o processo até ter certeza de que não há mais nenhum erro. Neste 
ponto, você confirma teclando S (de Sim). 

FIGURA 6 



8= 643 19= 952 ; 
3= 740 24=1311 ; 
8= 526 29= 401 i 
3= 489 34= 380 I 
8= 429 39= 473 • 
3= 444 44= 527 ■ 
8= 377 49= 499 ! 
3= 419 54= 411 I 
8= 524 59= 415 I 
3= 401 64= 538 I 
8= 586 69= 759 ' 



Neste momento, aparecerá uma mensagem pergun- 
tando em que linha esiá o erro. 

Você deverá digitar 39 (+ RETURN). 

Feito isto, o MSX gerará um comando de listagem, 
colocando o cursor sobre o próprio comando (figura 5). 

Aperte RETURN e a linha em questão será listada a 

seguir. 
FIGURA 5 



O programa salta para a fase seguinte, colocando na 
tela o pseudónimo do autor e listando todas as combinações de 
SELECT e leiras que geram as palavras reservadas (figura 7), 



23= 740 24=1311 25=1133 26=1322 27= 676 

28= 526 29= 401 30= 372 31= 495 32= 497 

33= 489 34= 380 35= 501 36= 503 37= 507 

38= 429 39= 473 40= 498 41= 466 42= 420 

43= 444 44= 527 45= 460 46= 412 47= 495 

48= 377 49= 499 50= 377 51= 458 52= 412 

53= 419 54= 411 55= 423 56= 439 57= 425 

58= 524 59= 415 60= 383 61= 500 62= 479 

63= 401 64= 538 65= 764 66= 815 67= 418 

68= 586 69= 759 70= 557 71= 873 



Breafc in -78 
Ok 

IIST 39 : REM -TECLE RETURN! 
color auto aoto list 



NEW 

BEEP 

CONT 

HM 

REM 

FOR 

60T0 

hOii.lt 

INPUT 

LOflD 

LIST 

LLIST 

MOTOR 

NEXT 

POKE 

PRINT 

PSET < 

RUN 

SflVE 



;olor auto 
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Você pode, agora, gravá-lo como um programa BASIC ou como 
uma rotina em Linguagem dc Máquina. Neste último caso, os 
comandos para gravação e leitura estão relacionados na figura 8. 



SfWTECLAIO.BIN" . Í.HP880, E.HMDT <dríw 
SflVE " CHS TECLAI! " . . i.HM I>7 < «r*u 



iLOHP" TECLbFO . BIN" ,R < dr H'e > 
!LOHU"CHS TECLHI'".P ' <«>rau. > 



Tome cuidado para n3o invadir, com o programa que 
você está digitando, aregiáo de memória entre os endereços 53248 
(&HD000) e 53719 (&HD1D7), pois é lá que se localiza a rotina 
de redefinição do teclado. 

Seu MSX, agora, não tem nada a invejar a um Sinclair, 
com relação à digitação de palavras reservadas. Use esta rotina 
para digitar programas em BASIC. Inicialmente, você demorará 
até mais que o normal, mas vale a pena investir um pouco de seu 
tempo nisso. Depois de um certo tempo, você ficará Ho familiari- 
zado com esta técnica que sua velocidade de digitação de um 
programa chegará a dobrar. 



Pierluigi Piazzi é Diretor Editorial da Editora AJeph e 
co-autor dos livros: 

Coleção de Programas para MSX vol.l e 2, Usando a 
Planilha Eletrônica no MSX, Aprofundando-se no MSX, Como 
usar seu HOTBIT, Curso de BASIC MSX, Curso de Música para 
MSX, Drives Leopard de 3 1/2", 100 dicas para MSX e +50 dicas 
para MSX (em lançamento). 

Milton Maldonado Jr. (The Pilot) é co-autor dos livros: 
Coleção de Programas para MSX Vol. 1 e 2, Aprofun- 
dando-se no MSX, Programação Avançada em MSX, 100 dicas 
para MSX e +50 dicas para MSX. 

O programa fornecido neste artigo foi, originalmente, 

publicado no livro "100 DICAS PARA MSX", da Editora Aleph, 
e foi testado na presente versão num Expert 1.1, gentilmente 
cedido pela Gradiente, e num HOTBIT. 

Este programa pode ser usado por usuários de MSX, 
mas sua comercialização, seja na forma de programa isolado, seja 
na forma de sub-rotina de outro software, í vedada por lei sem o 
expresso consentimento, por escrito, da Aleph Publicações e 
Assessoria Pedagógica Ltda. 



UM PROFISSIONAL 
ACIMA DE 
QUALQUER 

SUSPEITA 

dBASE II PLUS MSX. 
Com ele você faz 
o melhor negócio. 



O dBASE II Plus MSX é uma forma 
completamente nova de gerendar seus dados. 

E uma linguagem que permiti criar, de forma 
fácil e rápida, um sitema completo de informações 
para seu negócio que faz exatamente o que voçé 
quer. Contabilidade, mala direta. controle de 
estoque, gerenciamenio de produção, perfil de 
cliente, enfim, sistemas que irão manipular os 
problemas modernos que surgem a cada dia. 

O dBASE II Plus MSX não é o único meio de 
manipular dados no seu microcomputador, mas ô o 
melhor! Módicos e advogados, contadores e 
vendedores, corretores e imobiliárias, donas- de 



utilizarão melhor, seus dados, com o d BASE II Plus 
MSX 

Tudo o que voçé tem a lazer é trabalhar 
com as informações usando nomes e conceitos que 
voçé já conhece, e que seu micro passa a conhecer 
através do d BASE II. Voçõ pode trabalhar com ele 
na forma Inierativa ou Programada 

Portanto a comunicação é perfeita; clara, 
objetiva e rápida. 

Produzido pela DATALOGICA- 
PBINCESSWARE sob licença da As hton-Tate- 
U.S.A. 

Produto em disco com seu respectivo rP de 
série, manual completo e garantia. 

Conta também com suporte técnico e direito 
a atualizaçao de nova versão gratuitos. 

Software mundialmente aprovado. 

prActica e princessware 



ATENÇÃO 

Este produto voçô encontrará nos 
Revendedores Autorizados; exija sempre o original 

A Lei de Software, traz benefícios mútuos. 
Vai proteger seu software. 



PRLNCESSWAÇE 



O futuro desta Geração )á chegou. 

Para maiores Informações: 
Av. Açocê, 579 - índianót " 
CEP 04075 -São Paulo - 
Tal.: (011) 549-0545 



AS INSTRUÇÕES SECRETAS 
DO Z-80 



Linguagem de Máquina - MSX 
Editora Aleph 



Se você der uma olhada cuidadosa numa tabela de 
mnemónicos, perceberá que existem alguns "buracos" nas colunas 
" após CB" e "após ED". Talvez você já tenha se perguntado o 
que aconlece se tentar utilizar essas "instruções". De fato, algo 
acontece e, por incrível que pareça, até com certa lógica! Temos, 
então, mais instruções disponíveis para utilizar o Z-80 que, no 
entanto, não são divulgadas em seus manuais e, portanto, não 
fazem parte das tabelas dos programas Assembler e Disassembler. 
Vamos, então, estudar essas "instruções secretas". O motivo pelo 
qual estas instruções não são divulgadas não é bem certo e 
preferimos não emitir opiniões tentando advinharo porquê. O falo 
s existem. 



AS INSTRUÇÕES NAO OFICIAIS 

Comecemos, então, a preencher os oilo bytes restantes 
para as instruções após CBH, ou seja, de 30H a 37H. Teremos, 
então, uma nova instrução de rotação similar à SLA, que, cm vez 
de resetar o bit 0, este é setado. Esta instrução é chamada de SL1 
(Shift Lcfl Inveried) c corresponde a multiplicar o valor do 
registro.ou memória, por2 e somar 1 ao resultado. O C ARRY pode 
ser usado para detectar "estouros". 

FIGURA I - A instrução SLI. 



A ESTRUTURA DAS INSTRUÇÕES 

Se todas as combinações possíveis de um byte fossem 
utilzadas para indicar instruções, teríamos apenas 256 instruções 
disponíveis para o 2-80. Assim, quatro bytes foram reservados 
para permitir o uso de mais instruções: 

CBH e EDH , que colocamos em "frente" a um dos 252 
bytes restantes, produzindo outras instruções. 

DDH e FDH que colocados em "frente" a quase todas 
as instruções que utilizam o par HL, permitem utilizar os pares IX 
elY. 

Desse modo, como oficialmente temos 248 instruções 
após CBH, 58 instruções após EDH e mais 140 instruções possi- 
bilitadas por DDH e FDH, temos: 

252 + 248 + 58 = 698 instruções oficiais. 

Na reaJidade, são "apenas" 696, pois os códigos 22H e 
ED 63H correspondem ambos a LD (KK), HL e os códigos 2AH 
e ED6BH correspondem, ambos, a LD HL, (KK). 

Vamos, agora, tentar preencher alguns malabarismos 
com osbyles para tentar "cavar" novas instruções. Num esforço de 
padronização, utilizaremos os mesmos mnemónicos apresentados 
na maioria da literatura a respeito dessas novas instruções. 



CARRV 



Utilizando os bytes DDH e FDH, temos, então, dez 
novas instruções: 

FIGURA 2 - Dez "novas" instruções de rotação (-128 
<=Q>=I27). 



INSTRUÇÃO 


CÓDIGO 


SLI A 


CB37H 


SLI B 


C838H 


SLI C 


CB31H 


SLI 0 


CB32H 


SLI E 


CB33H 


SLI H 


CB34H 


SLI L 


CB35H 


SLI (HL ) 


CB36H 


SLI ( 1 X+0 ) 


DDCB036H 


SLI ( IYtO> 


FDCB036H 




*DMVE 5.1/4 SUN COMPLETO «EXPANSOR DE SLOT (C/4 SLOTS) 
* PLACA 80 COLUNAS «GABINETE P/DRIVE COM FONTE FRIA 

* MODEM DE COMUNICAÇÃO * INTERFACE DUPLA P/DRIVE 

«rACOTiOEHMSCO: 1 00 JOGOS (ESCOLHER) + 5 APUCAItVOS + 10 DISCOS - 40.000,00 
* PACOlAo EM HIA: 100 JOGOS (ESCOLHES) + 5 WUCATTVOS + 7 FUÁS - 40.000.00 



SOLICITE NOSSO CAtÂLOGO DE PROGRAMAS PARA FAZER A SUA ESCOLHA ATENDEMOS IODOS OS ESTADOS EM 24 HORAS VIA SEDEX 
PARA FAZER SEU PEDIDO ENVIE CHEQUE NOMINAL COM CARTA DF TALHADA PADA A. NASSEB. 
RIO DE JANEIRO: RUA GONZAGA BASIOS 411/203 - VILA ISABEL - RJ CEP 20541 - TEL (021) 234-0775 
FILIAL COBITIBA; AV 1 DE SETEMBRO 3146 LOJA 20 - SHOPPING SETE - CU RH ISA PR - CEP B0010 - TEL 233 0046 
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Até agora, mencionamos que os bytes FDH e DDH 
poderiam sercolocados em frente de quase todas as instruções que 
envolvam o par HL para utilizar os registros IX e IY. De fato, as 
únicas "exceções" são as instruções EX DE.HL, EXX e as 
instruções que utilizam o par HL mas sâo precedidas pelo byte 
EDH. O que acontece se tentarmos utilizar o par HL? De fato, se 
colocarmos os bytes FDH e DDH cm frente a qualquer instrução 
precedida por CBH, com exceçâo das instruções que utilizam opar 
HL e das instruções BIT, teremos 336 novas instruções, que 
trabalham de modo bastante peculiar elas executam a instrução no 
endereço indicado por IX e IY mais Q (número entre -128 e 127) 
e, após isto, copiam o resultado no registro indicado pela instrução! 
Note que isto equivale a duas instruções oficiais. Por exemplo: 

SET 7,A = CBFH DDCBQFFH = SET 7,(IX+Q) 
LD A,(IX+Q) 

Fica difícil, entretanto, definir um mnemónico para este 
tipo dc instrução. Poderíamos, por exemplo, utilizar o seguinte: 

SET 7,A/(IX+Q) 

Aqui estão, portanto, essas 336 novas instruções: 
FIGURA 3 - 

1 12 "novas" instruções usando SET (-128<=Q<=127). 



reg/i 

bit 


a/iixui 
«/(irtai 


B/m*a) 
B/<ms) 


C/(IX»«) 
C/(ir»8) 


0/<IX»8) 
0/(IT*«) 


E/(IX*8) 
E/(IYt8) 


H/IIX+8) 
H7(I»»8> 


L/(IX*8> 
L/(H«8> 


• 


D0CBSC7H 
FDCNC7H 


DDCB8CÍH 
FDCB8C9H 


DDC88C1H 
F0CB8C1H 


D0CBSC2H 
FDCB8C2H 


DDCB8C3H 
FDCB8C3H 


DDCB9C4H 
FDCB8C4H 


DDCB8C5H 
FDCB8C5H 


1 


DDCBSCFH 
FDCB8CFH 


D0CS8C8H 
FDC88C8N 


DDCB8C9H 
FDCB9C9H 


DDCB8CAH 
FDCBBCAK 


DDCB8CBH 
FDCB8CBH 


DDCB8CCH 
F0CB8CEH 


DDCB8CDH 
FDCB8CDH 


2 


DDCB9D7H 
FDCB9B7H 


0DCB801H 
F0CB8D8B 


DDCB9DÍH 
F0C8801H 


D0CS8D2H 
FDCB802H 


DDCB803H 
FDCB9D3H 


DDCB8D4K 
FDCBB04H 


DDCB805H 
FDCB8D5H 


3 


DPCBÕDFH 
FDCB80FH 


D0CB8D8H 
FDCB808II 


D0CB8D9H 
FDCB80VH 


DDCB8DAH 
FDCB8DSH 


00C8Í0BH 
FDCB8DBH 


C0CS8DCH 
FDCB8DCH 


DOCBSDDH 
FDCB90DH 


* 


DDCNE7H 
FDCBSb 7. ' 


DDCB8E9H 
FDCB8E8H 


ODEBSEÍH 
F0CB8EIK 


DDCB8E2H 
FDCBQE2H 


DDCB8E3H 
FDCB8E3H 


DDEB8E4H 
FDCB8E4H 


DDCBBE5H 
FDC88E5H 




DDCBQFFH 
FDCB9EFH 


DDCB8E8H 
FDCB8E8K 


DDCB9E9H 
F0CB8EÍH 


D0CB8EÍK 
FDCBSEAH 


D0CB8EBH 
FDCB8EBH 


DDCB8ECH 
FDCB8ECH 


D0C38EDH 
FDCB8EDH 


1 


0DC88F7H 
F0CB8F/H 


DDCB8F8H 
FDC81FM 


DDCB8F1H 
FDCB8F1H 


D0CB8F2H 
FDCB9F2H 


D0CB8F3H 
F0CB8F3H 


DDCBSF4H 
FDCB8F4H 


DDCB8F5H 
FDCB8F5H 


7 


DDC80FFH 
FDCB8FFH 


GDCB8F3H 
FDCBSFBH 


0DCB8F9H 
FDCBSFPH 


DDC68F8H 
FDCB8FSH 


DDCB8FBH 
FDCE8FBH 


(1DCB8FCH 
FDCB9FCH 


D0CE8FDH 

FDCB9FDH 



OUTRO 

PROFISSIONAL 
ACIMA DE 
QUALQUER 
SUSPEITA 

SuperCalc II MSX. 
Com ele você calcula 
as vantagens. 

O SuperCalc 2 MSX é uma planilha de 
cálculo eletrõnica, um programa de planejamento 

Com o passar do tempo, a sua utilização se 
tornou cada vez mais frequente Milhares de 
usuários no mundo todo acharam esta a melhor 
maneira de aproveitar toda a capacidade e 
eficiência de seus micros 

E um instrumento para planejamento e 
previsão financeira e numérica 

O Super Cale 2 MSX pode ser usado para 
desenvolver o orçamento inteiro de uma 
companhia, para organizar o orçamento doméstico 
de uma lamília ou para coletar dados numéricos/ 
estatísticos. 

Sem dúvida a ferramenta ideal para 
administradores, engenheiros, vendedores, 
pesquisadores, estudantes, etc. 

Fácil de usar não requer grandes 
conhecimentos de computação: foi feito para ser 
usado logo no seu primeiro contato. 

Nada mais de lápis , papel e calculadora, 
agora somente seu MSX e o SuperCalc 2 MSX, 
Produzido pela Compucenter-Princessware sob 
licença da Computer Associates- U.S.A. 

Produto em disco com seu respectivo n° de 
série, manual completo e garantia Conta também 
com suporte técnico e direito a atualização de nova 
versão gratuitos. 

Software mundialmente aprovado. 

PRÂCTICA e princessware 



ATENÇÃO 

Este produto voçê encontrará nos 
Revendedores Autorizados, exija sempre o original 

A Lei de Software, traz benefícios 
mútuos Vai proteger seu software. 



pr^NCE&SWAÇE 



O futuro desta Geração Já chegou. 

Para maiores Informações: 
Av. Açocê, 579 - tndlanópolla 
CEP 04075 - São Paulo - SP 
Tal.: (011) 549-0545 
Caixa Postal 64S35 - CEP 05497 



CPV II 



rtg/i 

bit 


A/tlX+Gl 
A/(IY*8) 


B/(IXt9) 
B/(IY«8) 


C/ÍTX4Q) 

c/(n*9i 


D/ÍIX+8) 
0/(IY+S> 


E7(IX+8) 
E/(ir*9) 


H/(IX»9 
K/CIT+9 


l/UX+9 
L/UY+8) 


Fi 


jura 4-112 "novas" instruções usando 
RES (-128<=Q<=127). 


« 


DDCB887H 
FBCB987H 


BBCB880H 
FDCB989H 


BDCB9B1H 
FDCB881H 


BDCB882H 
FDCB982H 


BBCBB83H 
FDCB983H 


DDCB984H 
FBCB8S4F 


BGCBS85H 
FDCB885H 




i 


BBCB98FH 
FDCB9BFH 


DDCB988H 
FDCB988H 


DDCB889H 
FDCB989H 


BBCBG8AH 
FDCB98AH 


DDCB98BH 
FDCB9BBH 


DDCB98CF 
FBCB88CH 


DDCB88DH 
FDCB98DH 






DBCB997H 
FBCB997H 


BDCBB9BH 
FDCB998H 


0DCB891H 
FDCe«91fl 


DBCB992H 
FDCB992H 


DDCB993H 
FDCB993H 


DDCB994H 
FDCB994H 


BBCB895H 
FBCB895H 




3 


DDCB99FH 
FDCB99FH 


DDCB998H 
FDCB998H 


DDC8999H 
FDCB999H 


BBCB99AH 
FDCB99AH 


DDCB99BH 
FDCB996H 


DDCB89CF 
FDCB99CB 


DDCB89DH 
FDCB89DH 




4 


GBCBQA7H 
FBCB8A7N 


BBCB8A0H 
FBCB8A8H 


DDCB9A1H 
FDCB9A1H 


BBCB8A2H 
FDCBQA2H 


DDC88A3H 
FBCB8A3H 


BBCB9A4F 
FDCB9A4I- 


00CB9S5K 
FDCB9A5H 
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BDCB8AFH 
FBCB8AFH 


BDCB8ABH 
FBCB9A8H 


BBCB9A9H 
FBCB8A9H 


DDCB9AAH 
FBCB9AAH 


BBCB9ABH 
FBCB9ABH 


BDCB8AO 
FBCB8ACF 


DBCB8ADH 
FDCB8ADH 




á 


DDCB9B7H 
FDC88B7H 


0DCB9B8H 
F0CB9B9H 


BDCB881H 
FDCB9B1H 


D0CB9B2H 
FDC8882H 


BBCBGB3H 
FDCB8B3H 


DDCB9B4H 
F0CB984H 


DBC88B5H 
FDCB9B5H 
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DDCB9BFB 
FDCB8BFK 


0DCB8B8H 
FDCB8B8H 


DDCB9B9H 
FDCB9B9H 


DDCB8BAH 
FDCB8BAH 


OOCBSBBH 
FDC88B8H 


DDCB9BCH 
FDCB9BCH 


BBCB9BBH 
FDCB9BDH 




Figura 5-112 "novas" instruções de rotação. 
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RLC 


D0CB887H 
FDCB887H 


BBCB933H 
FDCB998H 


DDCB99ÍK 
FDCB881H 


DDCB982H 
FDCB992H 


OXB903H 
FDCB893H 


D0CB994H 
FDCB884H 


00CE8Í5H 
FDCB885K 


RRC 


BBCB8BFH 
FDCB98FH 


BBCB888H 
FDCB9Í8H 


0BCB889H 
F0CB989H 


DDCB98AH 
FDCB90AH 


D5CB98BH 
FDCB98BH 


D0CB88CH 
F0C889CK 


BDCB89BH 
FBCB88BH 


RL 


DBCB8Í7H 

FBCB817H 

1 


BDCBB18H 
FBCB9Í0H 


BDCB811H 
FBCB91ÍH 


DDCB912H 
FDCB912H 


BBCB8Í3H 
FBCB813H 


DDCB9Í4H 
FDCB914H 


DDCB815H 
FDCB81SH 


RR 


D0CB91FH 
FDCB91FH 


D0CB91BH 
FDC8B18H 


DDCB919H 
FBCB919H 


DBCB91AH 
F0CB91AH 


0DCB91BH 
F0CB91BH 


D0CB91CH 
FDCB91CH 


DDCB81BH 
FDCB910H 


SL« 


DDCB827K 
FDCB827H 


DÍOS28H 
FDCB929H 


BBCB921H 
FDCB921H 


D|>CB822H 
FDCB822H 


0DCB823H 
FBCB823H 


BDC8924H 
FDCB924H 


0BC8925H 
F0CB925H 


SRA 


DDCB92FH 
FBCB92FH 


BDCB92BH 
FDCI928H 


BBCB929H 
FDCB929H 


DBCB82AH 
F0CB82AH 


DDCB92BH 
F0C892BH 


DDC892CH 
FBCB92CH 


DDCB92BH 
FDCB92BH 


SLI 


BDCB937H 

FDCB937K 


DDCI939H 
FDCB939H 


BDC8931H 
FDCB93ÍH 


BBCB832H 
FDCB832H 


O0CB933H 
FBCB833K 


DDCB834H 
F0CB934H 


DDCB935H 
FBCB835H 


SRL 


0OCB93FH 
FDC893FH 


DDCB138H 
FDCB938H 


0BC8839H 
FDCB839H 


DDCB93AU 

FDC383AH 


DDCB93BH 
FBCB83BH 


D0CB83CH 
FBCB86CH 


DDCB93DH 
FBCB83DH 



Os registros IX e IY (de 16 bits) não podem ser 
divididos em 2 registros de 8 bits. Entretanto, se usarmos os bytes 
DDH e FDH em frente a qualquer instrução que utilize os registros 
H ou L separadamente, mas que não utilizem opar HL, executando 
as instruções precedidas por CBH ou EDH, teremos acesso às 
metades dos registros. 

Se utilizarmos instruções com o registro H, estamos 
lidando com o byte mais significativo de IX ou 1Y, que chamare- 
mos HX e HY respectivamente, e, se utilizarmos instruções com 
o registro L, estaremos lidando com o byte menos significativo de 
IX ou IY (que chamaremos LX e LY, respectivamente). 

Temos, então, 92 novas instruções. 

FIGURA 6 - 52 "novas" instruções. 
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0D67H 


DD68H 


DDÓ1H 




D043H 


0026KH 


DD6FH 


D0Í3H 


0D69H 


DDáAH 


DOilH 


DD2EXH 


F067H 


FD68H 


FD61H 


FDÓ2H 


FD63H 


F02MH 


FD6FH 


F0Í8H 


F0Í9H 


FDÓSH 


FDÍBH 


FD2EXH 



Apesar do aspecto "estranho" da figura 6, ela é simples 
dc utilizar. Os seguintes exemplos devem esclarecer a questão: 

LDC, HY = FD 4CH 
LD HX, LX = DD 65H 
LD LY, D = FD 6AH 
LD HY, 1Ó = FD26 10H 



FIGURA 7 - 24 "novas" instruções aritméticas e, finalmente, as 
instruções lógicas e de comparação. 
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sue A, 
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FD95H 


SBC A, 


DD9CH 
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FIGURA 8 - 12 "novas instruções lógicas e 4 dc comparação. 
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LX 


HT 


LY 


AND 


DDA4H 


DDA5H 


FDA4H 
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Você pode perceber que ainda existem alguns "bura- 
cos" nas instruções após EDH, e muitas outras combinações 
possíveis. No entanto, até agora nada foi publicado a respeito 
dessas possíveis novas instruções, possivelmente porque elas pro- 
duzem algum resultado "ilógico" ou resultado nenhum. Se você 
dispuser de tempo livre, divirta-se tentando descobrir o que estas 
instruções que faltam podem fazer. Entretanto, com estas 438 
novas instruções, temos, agora, 1 1 36 instruções! Já é o suficiente 
para se divertir. 

Você poderia perguntar sobre o efeito dessas novas 
instruções nas flags. O efeito é equivalente as instruções "oficiais" 
c pode ser descoberto por analogia. 

Novamente, salientamos que essas instruções n ão po- 
dem ser utilizadas com os Assemblcrs e Disassemblcrs. En- 
tretanto, as pseudo- instruções (ou NOPs posteriormente 
preenchidos) podem facilitar as coisas. 

DB ODDH 

DEC L;equivalcm à DEC LX 
DB OFDH 

SBC A,H ;equivalcm à SBC A, HY 

Alguns Assemblers utilizam duas pseudo instruções, 
usadas para definir dados de um byte (Byte), ou dois bytes (Word), 
respectivamente: DB e DW. 

Com relação aos registros HX, LX, HY e LY, é con- 
veniente salientar que sua utilização depende do seu programa. Se 
você precisar de muitos registros e puder deixar de lado as 
facilidades de endereçamento de memória através dos pares IX e 
IY, então pode utilizá-los sem problemas. 
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GERENCIANDO ARQUIVOS 
EM DISCO 



Aprenda os comandos gerenciadores 
BRUNO MARRUT âg arquivos no MSX 



É comum ouvirmos os usuários dc microcomputadores, 
principalmente os iniciantes, dizerem que gostariam de guardar 
receitas de bold, por exemplo, em seu computador. 

Os usuários de fita logo percebem que trabalhar com 
arquivos de dados em fita é inviável, pois a gravação/leitura de 
dados de uma fita cassete é uma tarefa que pode consumir alguns 
bons minutos do seu tempo. 

Já os usuários de disco contam com uma enorme van- 
tagem que é a rapidez com que os dados podem ser gravados, ou 
lidos, do disco, tomando, assim, o armazenamento de uma receita 
uma tarefa viável e, dependendo do programa, até com vantagens 
sobre o ultrapassado fichário. 

Neste artigo irei comentar as funções de gravação e 
leitura em disco, apresentando como exemplo um programa de 
mala-direta. 

Antes de iniciarmos, gostaria de apresentar as 
diferenças entre os dois tipos de arquivos que podem ser geren- 
ciados no disco: arquivos sequenciais e arquivos aleatórios. 

Arquivos sequenciais: se você estiver utilizando uma 
fita cassete, os seus arquivos estarão gravados sequencialmente, 
ou seja, um após o outro, sendo que você nao poderá acessar o 
segundo sem passar pelo primeiro, mesmo que avance rapida- 
mente a fita. 

Suponhamos que o seu arquivo seja sequencial e que 
nele estejam gravadas 235 fichas. Caso você queira ler a ficha234, 
terá que ler todas as 233 anteriores, mesmo sabendo que a ficha 
procurada é a 234. 

Arquivos aleatórios: os arquivos aleatórios apresen- 
tam a vantagem de permitirem o acesso direto a um determinado 
registro, independente da sua posição, permitindo, assim, uma 
visualização dc uma informação muito mais rapidamente. 

Nos arquivos sequenciais a extensão de um registro 
pode ser variável, isto é, se você tiver programado a sua ficha para 
conter até 100 caracteres, mas, na digitação, tiver ocupado apenas 
80 das 1 00 posições disponíveis, o espaço ocupado no disco será 
o correspondente às 80 posições utilizadas e não às 100 previa- 
mente previstas, resultando, portanto, em economia de espaço no 
disco. 

Em se tratando de arquivo aleatório, a extensão é fixa, 
ou seja, o espaço ocupado por cada uma será igual, independente- 
mente da quanúdade de caracteres que tenhamos digitado. 

Caso existam posições que não tenham sido utilizadas, 
as mesmas serão preenchidas com o código correspondente ao 
espaço em branco. 

Em ambos os casos, a extensão máxima que podemos 
ter para cada registro é de 256 bytes ou caracteres. 



Nos arquivos sequenciais a alteração de uma ficha já 
gravada, ou de um conjunto delas, é uma tarefa complicada e nada 
prática. Para alterar uma ficha de um arquivo sequencial, devemos 
transferir todos os registros para variáveis indexadas e, depois de 
efetuarmos as devidas correções, efetuar a regravação de todo o 
arquivo. Este processo está intimamente ligado ao fato do arquivo 
sequencial tersua extensão variável para cada registro elimitaaca- 
pacidade do arquivo à memória disponível do computador 

Um arquivo sequencial deve ser aberto e fechado cada 
vez que for acessado, o mesmo nao ocorendo com o aleatório, que 
deve ser aberto no início do programa e fechado no final do 
processamento. 

Portanto, nosso arquivo de mala-direta será um arquivo 
aleatório. Os comandos que utilizaremos em nosso programa, e que 
pertecem ao Dísk Basic, estão comentados abaixo: 

OPEN 

SINTAXE: OPEN "d:arquivo" AS # NRO LEN=NRO 
FUNÇÃO: abrir um arquivo para a entrada e ou saída de dados. 

Ao executarmos o comando OPEN, reservamos uma 
área da memória do computador, chamada de"BUFFER'\ É lá que 
os dados sao armazenados, temporariamente, antes de serem 
gravados no disco, ou quando são lidos do mesmo. 

NRO é utilizado para especificar o número do arquivo 
em processamento. É definido pela instrução MAXFTLES. 

LEN=NRO define a quantidade de bytes que cada 
registro irá ter. Caso nada seja especificado, será assumido pelo 
sistema o valor máximo, que é de 256 bytes. 

Podemos abrir, simultaneamente, até 6 arquivos para a 
entrada de dados. Contudo, para a saída, apenas um poderá estar 
aberto. 

CLOSE 
SINTAXE: CLOSE # NRO 

FUNÇÃO: Fechar um arquivo aberto anteriormente. 

NRO - Especifica o arquivo a ser fechado. Caso nada 
seja especificado, todos os arquivos que se encontrem abertos 
serão fechados. 

O nao fechamento dc um arquivo após o mesmo ter sido 
aberto, tornará impossível a uúlização das informações armazena- 
das. O comando CLOSE transfere todos os dados armazenados no 
BUFFER para o disco, o que só ocorre normalmente quando o 
BUFFER é totalmente preenchido. 

LOF 

SINTAXE: LOF NRO 

FUNÇÃO: Utilizada para indicar a extensão de um arquivo. 
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F1KLD 

SINTAXE: FIELD #NRO, A AS X1$,B AS X2$ 
FUNÇÃO: organiza o espaço dentro de um registro, através de 
variáveis alfanuméricas, ou seja, informa como será dividido o 
registro. 

As variáveis definidas através da instrução FIELD não 
podem receber os dados diretamente, através de LINE INPUT, 
por exemplo, pois elas sâoalocadasno BUFFER. Então, os dados 
entrados devem ser atribuídos inicialmente a outras variáveis que 
nâo sejam as definidas através do FIELD, através de LINE INPUT, 
por exemplo, e depois transferidas para as variáveis definidas por 
FIELD, através dos comandos LSET e RSET. Feito isto, os dados 
poderão, então, ser transferidos para o disco, através do comando 
PUT. 

Para a leitura de dados do disco também utilizamos a 
instrução FIELD, sendo que, ao invés de utilizarmos PUT, iremos 
utilizar GET, que permite que seja lido um registro por vez, 
transferindo o seu conteúdo para o BUFFER, estando os dados 
disponíveis para manipulação. 



MAXFILES 
SINTAXE: MAXFILES = N 

FUNÇÃO: Definir a quantidade de arquivos que podem ser 
abertos pela instrução OPEN 

MKDS - MKSS E MKIS 

MKDS (nro. de dupla precisão) 

MKSS (nro. de simples precisão) 

MKIS (nro. inteiro) 
FUNÇÃO: Converter números ou variáveis numéricas para 
variáveis alfanuméricas. 

Em um arquivo de acesso direto só podemos trabalhar 
com STRINGS. Portanto, variáveis numéricas (dupla precisão, 
simples precisão ou inteiras) devem serconvertidas em STRINGS. 

Quando formos definir o espaço ocupado pela variável 
em um registro, através da instrução FIELD, para dados numé- 
ricos, devemos usar a quantidade de "bytes" referentes aos 
números já convertidos, observando que: 



LSET 

SINTAXE: LSET variável 1 = variável 2 
FUNÇÃO: Transferir os dados da memória principal para o 
BUFFER variável 1 = definida em FIELD 
variável 2 = variável de trabalho 

PUT 

SINTAXE: PUT N.N' 

FUNÇÃO: grava no disco as informações do registro. 

N = número do arquivo aberto pela instrução OPEN 
n' = número do registro que será gravado 

GET# 

SINTAXE: GET N.N' 

FUNÇÃO: lê os registros do disco, colocando-os no BUFFER. 

n = número do arquivo aberto pela instrução OPEN 
n' = número do registro que será lido. Caso não seja 

utilizado, será lido o registro após o último lido pelo comando 

GF.T, ou o primeiro. 



MKDS - converterá o dado numérico de dupla precisão 
em uma variável alfanumérica de 8 "bytes". 

MKSS • converterá o dado numérico de simples 
precisão cm uma variável alfanumérica de 4 "bytes". 

MKIS - converterá o dado numérico inteiro em uma 
variável alfanumérica de 2 "bytes". 



A utilização de dados numéricos merece uma atenção 
especial na hora de definirmos a instrução FIELD, pois os campos 
não poderão ser menores e, caso sejam maiores, haverá desperdí- 
cio de espaço. 

Descrevemos acima os comandos do DISK BASIC que 
iremos utilizar para o nosso programa de Mala Direta. 

Acreditamos que, analisando oprograma eosconceitos 
transmitidos acima, vocêestará capacitado a desenvolver qualquer 
tipo de ro tina para gravaçãoe leitura de dados em disco, que poderá 
ser utilizada em seus próprios programas. 



CHAMPION SOFTWARE 



MSX 2 

MSX 



MSX :AMAUROTE, BANANAS, EL MUNDO PERDIDO, 
CAR FIGHTER, OCEAN CONQUEROR. CAR JAMBOREE 
MSX II: THUNOER, CHOPPER, CHESS. REDLIGHT. OF A MS 
TERDAN, PIXEL 2, PHILLIPS DESIGNER'S 
MEGA RON MSX: P1NGUIN ADVENTURE, F1 SPIRITS, 
SALAMANDER. D RAGO N QUEST. NEMESIS 2. CALL FORCE 
MEGABON MSX 2: ZANAC, HINOTORI, KING KONG 2. 1942, 
LABYRtNT, METAL GEAR. VAMPIRE KILLER, LUPIN 3RD, 
DRASLEY FAMILY, SUPER RAMSO 




E MUITO MAIS!!! 

Solicite nosso catalogo grátis pelo tel.(01 1) 212-8990 das 14 as 22 horas 



MALA DIRETA 



II I» MALA DIHETA 

28 REN REVISTA CPU NRO 5 

38 REN BRUNO NARRUT 

48 REM LIMPA TELA E DEFINE «A DAS W 

mis 

58 aS:SCSEEN BiNIDTH WiEfflfF 

60 CLEAfi 3888!»»:FILES=2 

78 REN AM E DEFINE A ESTRUTURA DO AR» 

IHW 

81 OFEN -AiARaUIW AS II LEIH17 
M rX0F(l>/117« 

ltt FIELD 11,(8 AS NOI.40 AS E»,15 AS 
BA1.1S AS CII.2 AS UFI.5 AS CEI 
118 Ff» EXIBE NENU NA TELA 
128 aS:FMNT"REVISTA CtViPRINrARGWV 
0 DE «ALA DIRETA" 

138 PflINTiPRINT '1 - ENTRADA DE DADOS 
148 PRINT '2 - BUSCA POR NOME 
158 PRINT "3 - BUSCA POR REGISTRO 

ua pmw 't - lista moura no vídeo 

178 PRINT '5 - FIM 
198 IfcINPUTIIll 

288 Dl VAL (II) GOTO 228,588,418,1288,1 
S88 

218 GOTO 190 

22B P£N ENTRADA DE DADOS 

238 CLSjPRIHT •REGISTRO - iC 

248 PfilNT:PR]HT:LlNE IM=UT "NOME "; NI 

258 LINE IffUT "ENDERECO "; El 

268 LINE INPUT "BAIRRO "; BI 

278 LINE INPUT "CIDADE "; Cl 

2B8 LINE INFUT "ESTADO "; St 

298 LI* INPUT "CEP "; PI 

38B CLS:PRINT "REGISTRO ";C 

318 PRINT Nl!Ffi!NT EIsPRINT BliPRINT Cl 

:PRINT SliPRINT PI 

321 PRINTiPRINT-DESEÍA EFETUAA ALGUMA A 
LTERACAO? (S/N)" 

338 ZI=IN?UTI(1I;IF 7I="S" Ofi ZI=V TH 
EN G0SU8 3188 ELSE IF 71="»" OR I«"V 
THEN 428 

428 REM GRAVAÇÃO DOS DADOS NO DISCO 
438 LSET NOMH:LSET ENMULSET BAI»Bt 
: LSET BXS! LSET ESI=SI:LSET CB=Pt 
435 PUT ll,C:C=Ctl 

448 aS:PRINT "REGISTRO GRAVADO":PRINT: 
PRIHT"OES£JA EFETUAfl NOVA ENTRADA 1 IS/N 
)■ 

458 !>INPUTII1):IF 2I="S" DR Ii""s" TH 
EN 228 ELSE IF !I="N" OR »V THEN 12 



g 

588 REN BUSCA POR HOME 

518 as 

528 IF C<2 THEN PRINT "AROUIVO VAZIO":G 
OTO 128 

53B LINE INPUT "NOME A PROCURAS ";N1 
548 FOR (=1 TO C-I 
558 GET il,[ 

568 IF NMEFTIINOt,LEN(lfl)l THEN SOTO 
58S 

578 NEIT t 

598 PRINT "NOBE NAO ENCONTRADO" 
585 GOSUB 1888 

598 PRINT iPRINTlLINE llfUT "PRESSIONE O 
UALStíR TECLA PARA VOLTAR"! 71 
688 GOTO 128 

618 PRINTlPRINT "DESEJA 1AILTERAL ICIAN 
CELAR OU (VIXTAfi AO MENU PRINCIPAL?" 
628 ZI=INPUTIIII:IF 7>T OR 7>V TH 
EN 988 ELSE IF !«"T Ofi Il="v" THEN 12 
8 ELSE IF 2I='C" OR Zl="c" THEN 758 
638 GOTO 628 

648 REN BUSCA POR REGISTRO 

658 CLSíPRINT "SUAL O NUMERO DO REGI STR 

O?" 

668 K=B:INPUT tiIF (X THEN PRINT "REG 

ISTRO NAO EIISTE. ULTIMO REGISTRO EFETU 

ADO FOI O DE NUMERO! "! C-1:PRINT:PRINT 

"PRESSIONE UNA TECLA PARA VO.TAR" 

678 SET ll.KiSOSUB 1880 

688 GOTO 618 

758 REN APAGAR REGISTRO 

768 LSET NOt="":LSET ENI=""!LSE! BAt-"" 

:LSET CII="":LSET ESI="":LSET CEI=°" 

778 PUT ll,< 

738 PRINT "RE6IS1R0 DELETADO":PRINT"PFf 
SSIONE OUALOER TECLA PARA RETORNAR 
7S5 G1=INPUlt(l):]F SK>" THEN 128 
988 REN ALTERAM) DE REGISTRO 
885 as 

818 PRINT NOIlPRINT ENIiPBINTBAliPRINTC 
IIsPRlNÍ £SI:PfiIHTCEI 
828 GOSUB 5888 

848 PRINT "PRESSIONE QUALQUER TECLA PAR 

A vaTAR AO MENU PRINCIPAL" 

650 INPUT 71:6013 128 

1080 REM DISPLAV DE INFORMAÇÕES NO VIDE 

0 

1005 PRINT :PRINT"REGISTRO ";t:PRINT 



1818 PRIN1 Nt» 
1B2B PRINT ENI 

1030 PRINT Bíi;SfC!l);C!t!5PC(l)!ESl!SP 

CHUCEI 

1078 RETURN 

1288 REM RELATÓRIO NO V,DEO 
1285 aS:PRINT"PARA PARAR O ROLAÍENTO D 
A LISTAGEM PRESSIONE STOP' 
121B IF C<2 THEN PRINT "AfiOLIVO VAZIO - 
PRESSIONE OUALOUER TECLA PARA CONTINUA 
R- : INPUT 71:11 71 <>"" THEN SOTO 128 
1228 FOR ('1 TO C-I 
1238 GET ll.tlGOSUB 1808 
1240 NEIT ( 

1258 PRINT "FIM DA LISTAGEM, PRESSIONE 
LBA TEaA PARA RETORNAR' ! INPUT ZI:6OT0 
128 

1388 aOSE 
1318 END 

3400 PRINT:LINE INPUT "QUAL O CAMPO QUE 
DESEJA «.TERAR?";I$ 

3588 IF II="NOME" THEN LINE INPUT "NOME 
"; Hl 

3688 IF 2I="E«DEREC0" THEN LINE INPUT " 
ENOEfiEIO "; El 

37BB IF ZI="BAIRRO " THEN LINE INPUT "B 
AIRRO "; BI 

3800 IF II="C!DADE " THEN LINE INPUT "C 
IDADE "i Cl 

3988 IF ZI='ESTAI» 1 THEN LINE INPUT "E 
STADO "; SI 

4888 IF IfCEP " TMEN LINE INPUT 'CEP 
"; PI 

4020 RETURN 

5088 PRINT:LINE IMPUT "QUAL O CAMPO QUE 
DESEJA ALTERAR?";!! 

51BB IF ZI="NUHE" THEN LINE INPUT "HOME 
"! NOI 

5280 IF I*="EHDERESO- THEN LINE INPUT " 
ENDEREÍO "; ENI 

5388 IF /l>"NAirW) " IHEN UNI JNFU1 "p 
AIFÍ10 "! BAI 

5400 IF 2I="CIDADE " THEN LINE INPUT "C 
IDADE "; CII 

5508 IF «."ESTADO ■ TMEN LINE INPUT "E 
STADO "j ESI 

5680 IF !I="CEP " IKEN LM INPUT "CEP 
•i CEI 
5720 RETURN 
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Programas que simulam o 
raciocínio humano já são uma realidade, 
deixando os cenários de filmes de ficção 
científica, como por exemplo os computa- 
dores HAL e SAL, do filme "2010". Tais 
computadores eram capazes de incríveis 
façanhas, tal como reconhecimento e 
síntese de voz, c um incrível poder de 
dedução e, raciocínio. 

E lógico que o que propomos 
neste arligo não chega nem aos pés disso, 
mas não deixa de ser muito interessante, 
principalmente se for levado em conta que 
não foi usada nenhuma linguagem 
específica para programação em IA, como 
o LISP e o PROLOG, sendo realizado 
totalmente em Pascal. 

Um programa em IA simula de 
algum modo o pensamento humano (ou 
pelo menos lenta), fazendo que o próprio 
programa tome uma decisão ou então faça 
uma dedução sobre algum faio. 

Você que sempre escuta de seus 
pais e colegas: "O que é que você lanto faz 
na frente daquela máquina burra ?!" terá 
chance de se defender, mostrando-Ihes que 
o seu computador não é uma máquina 
assim tão burra, e que, secorretamente pro- 
gramado, pode até "aprender". Caso o 
programa cometa algum erro, este aprende 
a não fazê-Io novamente. 

Um caso típico de programas que 
utilizam técnicas de IA são os jogos de 
tabuleiro como o xadrez e o gamão. As 
primeiras partidas são facilmente vencidas 
por você, mas, depois de um certo tempo, 
fica praticamente impossível vencer a 
máquina, pois o jogo "aprende" a não per- 
der, com seus próprios erros. 

O que podemos fazer cm Pascal ésimular- 
mos matematicamente alguns procedi- 
mentos que facilitam a programação em 
IA. 

O algoritmo utilizado é o da 
árvore (sem podas), por ser o de mais fácil 
implementação, mas nem por isso o pro- 
grama deixa de ser inLeressanie, pois o 
mesmo superou todas as expectativas em 
relação ao desempenho. 

O método da árvore consiste cm 
seguirmos um determinado caminho 
(galho) até chegarmos a uma resposta coer- 
ente (fruto). 

O programa mostrado é conhe- 
cido tecnicamente por reconhecedor. No 
nosso caso, como o próprio nome indica, é 
capaz de reconhecer uma pessoa baseado 
em suas características ou em fatos a ela 
referentes. 
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A situação correspondente na 
vida humana é a seguinte: um amigo seu 
lhe pergunta sc você conhece uma deter- 
minada pessoa. A priori, você não se lem- 
bra e vai, então, fazendo uma série de 
perguntas que o ajudarão a reconhecê-la. 
O reconhecimento, neste caso, dá-se 
quando uma imagem mental da pessoa em 
questão é formada no seu consciente. 

Caso você tenha pensado em 
ouira pessoa diferente, irá procurar alguma 
coisa que diferencie a pessoa em questão 
da que você pensou, de modo a não come- 
ter o mesmo erro novamente, certo ? 

Analisemos, agora, como é 
constituída uma árvore. Para isso, observe 
a figura 1 atentamente. 



2 3 
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O número 1 no topo da árvore é a 
semente (ou pergunta inicial). A partir 
desta pergunta, podemos distinguir alé 
oito frutos (que estão na base da árvore). 
Os frutos sSo as terminações dos galhos. 

Note que há apenas um caminho 
possível para chegarmos a cada fruto e 6 
isso que nos permite identificá-lo corrci- 
tamenie. „ , v 

Suponhaqucnos 'nos da arvore 
(chamaremos de "nós" os pomos por onde 
passam dois ou mais galhos) hajam 
perguntas e cada vez que a resposta for 
"sim", você ande para a esquerda, c 
quando for "não", ande para a direita. 

Por exemplo: para chegarmos ao 
fruto 13, devemos responder não à 
pergunta do nó 1 , sim à do no 3 e não à do 
nó 6. Chegaremos, então, ao fruto em 
questão. 

Suponha, agora, que a resposta 
obtida em 13 esteja errada. Devemos, 
então, converter este fruto em um nó, com 
uma pergunta que nos permita distinguir a 
respostacertada obtida, ecriar dois frutos, 
um com a resposta ceria e outro com a 
obtida. 

No caso mencionado, as ultimas 
linhas da árvore ficarãocomoas mostradas 
na figura 2. 



8 9 10 11 12^14 15 

26 27 

Para construirmos uma árvore, 
basta escolhermos uma semente inicial (1) 
e ir multiplicando este valor por dois para 
uma resposta positiva, e multiplicando por 
doise somando um para uma resposta nega- 
tiva. 

Concluímos, enlão, que um ca- 
ninhoé formado por números que são o 
dobro, ou o dobro mais um, do número 
anterior ao mesmo, no caminho. 

Este é o procedimento 
matemático adoiado pelo algoritmo da 
árvore (sem podas). São exemplos de 
caminhos: 

a) 1,2,4, 8,17,34,69 

b) 1,3, 6, 13,26, 53, 107 

O que o nosso programa faz é 
estruturar uma árvore deste tipo para então 
seguir os galhos até chegar a um fruto coe- 
rente. 

No programa, a semente e a 
pergunta "É homem ?" e os dois frutos 
iniciais são "João", para uma resposta afir- 
mativa, e "Maria" caso a reposta seja nega- 
tiva. 

Você deve substituir estes dois 
nomes por outros de sua conveniência. 

Se o programa for utilizado com o 
Turbo Pascal em opção de compilação cm 
memória, o array responsável pelo número 
de nomes não deverá ser superior a 220. Na 
opção de compilação em disco, não deverá 
ser superior a 840. 

Este programa foi elaborado para 
reconhecer pessoas, mas nada impede que 
seja usado cm áreas profissionais, como 
por exemplo na área medica. 

Neste caso, se você é médico, 
poderá colocar em cada nó um sintoma c 
nos frutos, um pré- diagnóstico. 

É possivel aplicarmos o programa 
em robótica. 

Nesie caso, suponha que você 
quer fazer com que um robô pegue um de- 
terminado objeto em sua casa e o leve aié 
você. O robô teria um mapa de sua casa e 
iria lhe perguntando a respeito dos locais 
onde o objeio em questão estaria, se- 
lecionando, assim, o local exato para ir até 
lá c trazer-lhe o tal objeto . 

As possibilidades de uso de IA são 
ilimitadas. 

Há casos de programas para 
geoprospecção, estrategistas militares, 
diagnóstico de doenças, e muitos outros 
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[olimização de arrays para 

velocidade ) 

(SM 

(área dc definição de lipos) 



end; 

(área de definição dc variáveis) 



funclion achar(j:rcal):inleger, 
var ya:inleger; 
begin 

whife q|ya].c<x do 



funclion gr: ena n 

begin 
readln(rp); 
gn=upcase(rp); 



funclion rt(x:integer):reaJ; 



begin 
w:=l; 

for 10 i do 
ax:=10*ax; 



(dobrar) 

funclion db(*.:real):real; 
begin 
a:^tninc(ln(x)/]n{]0)): 
if a<=9 lhen 
db:=2'x 

db:=r<(«-9)'x 
{dobrar mais um} 



a:=irunc<ln<*yin(10)); 
if a<=9 lhen 
dm:=2*x-»l 



q : array|0..2501 of 

pd; (array do número de pessoas] 
d,le.b : pd; 
re,i :slring[3); 
ar.tr.aqvarq : fi: 



(ler dados do disco) 

procedure Ids; 
begin 

sssign(aqv,aqv_arq): 
resel(aqv); 

while nol eof(aqv) do 
begin 
read(aqv.d); 

j-i+i; 



( gravar no diico] 

procedure gds; 
begin 
assignfaqv ,aqv_arq); 
rewrile(sqv); 
for h:=0 lo j do 

wrile<aqv,q[h|); 
close(aqv); 
end; 

procedure i ris s:fi;rr: real); 
var i.v únlegen 
begin 

while ((q(i].c<rr)and(i<=j)) do 

i:=l+i; 
for v:=j downto i do 

qlv+l]:=q[v]; 
qli]c:=rr; 
q[i].k:=2; 
q|i].p:=ss; 

4f* 

{ controle principal de processos ) 



re:=q[l]; 
iflc.k-1 lhen 
begin 
writcln(le.p,' ?'); 
rr:=gr. 

if re=s lhen co:=db(le.c) 
else co:=dm(ie.c), 
l:=achar(co); 



if ie.k=2 lhen 
begin 

writelnCPoraqasoé: '); 
wrilclnfle.p," 7'); 
re:=gr; 
if reOs lhen 
begin 

wnlelnCQucm í ?'); 

readln(ar); 

wriielnC Dê uma 
diferença enlre '); 

wrueln(te.p,'e\ar); 

readln(lr); 

wriieln(ie.p): 

wriieln(ir, 



begin 

co:=db(ie.c): 
le.c:=dm(le.c) 



co:=dm(te.c); 
le.c:=db(te.c); 

q[ll.k:=l: 

q[U.p:=lr;ir(ie.p,le.c); 
irfar.co); 
end; 



(iniciali/açãodo velor) 



var v:slringlll]; 
begin 

wriielnC Carregar arquivo 7"); 



(finalização do programa ) 

procedure final; 
var v;jtring[ll|; 

wriielnC Salvar arquivo 7'); 



apresentação; 
wriielnC 



{corpo do pi 
begin 



golc*y(l,10): 

q[0).k ; =l; 

q[0).c;=l; 

q(0].pL= , É HOMEM '; 

bs-qlOJ; 

q(]].k:=2; 

{••• semenlc da pane 



q[2].k:=2; 
q[2|.c:=3; 



while m>fl do 

writclnC Pense em alguém:'): 



if nos lhen m:=0. 
end; 
fiiul; 
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INTERPRETADOR DE EXPRESSÕES 



ANTONIO F. SHALDERS 



Muitos de vocês, leitores, já ti- 
veram vontade de fazer um programa que 
pudesse gerar gráficos de funções de sua 
escolha. 

Alguns, talvez, já até tenham 
começado, porém muitos dc vocês esbar- 
raram no problema de interpretar funções— 
resolveram (aliás, quebraram o galho) 
modificando-o para cada função que 
quissesem traçar. Outros apelaram para um 
menu fixo de funções com o máximo dc 
funções que puderam imaginar. 

Uma parte tentou fazer um inter- 
pretador de expressões e acabaram 
desistindoou, seoconseguiram, loi a muito 
custo. 

E, finalmente, os raros que con- 
seguiram sem grandes dificuldades. 

Porém, estes já tinham um ponto 
de partida, uma idéia inicial. 

Mas qual é a idéia inicial e qual é 
o ponto de partida ? 

Este artigo se destina a dar uma 
idéia inicial de como se faz um interpreta- 
dor de expressões e, muito superfi- 
cialmente, de como funciona um compila- 
dor, usando o método dc descida recursiva, 
apresentando um exemplo de interpreta- 
dor,, cuja listagem está neste artigo. 

Mas será este exclusivo a este ar- 
tigo? Nada disso. Isto não implica que o 
nosso interpretador de comandos não possa 
ser usado juntamente com outros pro- 
gramas, pois ele é totalmente independente 
do programa de traçado de funções. 

Sua operação é bastante simples: 
basta, apenas, seguiralgunspequenoscui- 
dados. 

Começarei definindo o que é 
"Token", "léxico", "sintálica" e 
"semântica", com uma analogia com a 
língua portuguesa (que me perdoem os pro- 
fessores de português). 

Digamos a sequência de palavras : 
formiga elefante a o matou. 

Esta sequência não forma uma 
frase porque nao está stntaticamenic cor- 
reia. Porém, lexicamente, écorreta: todas 
as palavras lém seus sentidos isoladamente. 

Pode-se dizer que cada palavra é 
um Token por ser um elemento com sentido 
isoladamente. 

Digamos, agora, uma nova 
sequência de palavras : 
a formiga matou o elefante 



Esta sequência apresenta-se 
sintálicamente certa, i.c., sem erros 
síntálicos, porem semanticamente está in- 
correta : uma formiga não pode matar um 
elefante ! 

Observe esta nova sequência : 
o elefante matou a formiga. 

Esta sequência está correia tanto 
do ponto de vista lexical, como do sintático 
ou do semântico, pois todos os seus ele- 
mentos existem na língua portuguesa, estão 
obedecendo às regras de sintaxe c possuem 
um sentido final. 

Mas o que isto tudo tem a ver com 

ocaso? 

Uma linguagem dc programação 
tem suas palavras reservadas, seus operan- 
dos, suas funções e suas constantes (seus 
elementos léxicos, que numa linguagem de 
programação é chamado de Token). Possui 
também uma sintaxe. 

Um programa qualquer tem dc ter 
um sentido, pelo menos o suficiente para 
gerar um código executável (ou para ser 
interpretado). 

Agora já podemos definir a nossa 
"linguagem", i.c., a forma da expressão que 
deverá ser utilizada pelo interpretador. 

Deverá haver : 

1) Parênteses : Tokens "(" e ")". 

2) Multiplicação e divisão : Tokens "*" e 

v. 

3) Soma e subiração : Tokens "+" e 

4) Funções constantes c variáveis x e y : 
Tokens do tipo identificador, que o analisa- 
dor léxico vai descobrir a que categoria 
pertence verificando em uma tabela de 
símbolos. 

5) Jáque algumas funções terão mais de um 
parâmetro, vai exisur o Token "," como 
separador. 

6) Os operadores unários "+" e "-". 

7) Constantes numéricas. 

Com isto já temos os seguintes 
Tokens definidos : "(",")■* ,"*","/", 
",",*+","-*», identificadores c constantes 
numéricas. 

Mas como diferenciarmos os 
operadores "+" e "-" unários dos binários 
(com dois operandos) ? 

Isto é simples: pelo seu contexto. 
Será mais fácii verificar isto vendo os dia- 
gramas sintáticos, que vão dos diagramas 1 
ao 4. 



Um diagrama sintático é a 
representação gráfica dc uma sintaxe. 

Nos diagramas sintáticos, o que 
está em um círculo (ou em uma figura com 
extremidades arredondadas) é um Token. 
Este não pode ser mais expandido (apesar 
de se poder expandir mais nos casos dc 
identificadores e constantes numéricas, 
porém esta expansão fica ao encargo do 
analisador léxico). 

O que está cm um retângulo pode 
ser expandido em um outro diagrama 
sintático. 

O método dc descida recursiva 
consiste em fazer com que cada diagrama 
seja uma rotina que será chamada para fazer 
a expansão do seu diagrama, chamando 
outras rotinas para fazer a expansão dos 
seus "sub-diagramas". 

Para entendermos melhor como 
sc implementa o digrama no Pascal, usare- 
mos como exemplo o analisador de 
expressões. 

Para isto, será dada uma 
introdução de como utilizá-lo. 

O ANALISADOR DE EXPRESSÕES. 

O analisador de expressões está 
div tdidoem 3 arquivos que são "glbldef.p", 
"compila.p" e "interpr.p", que devem ser 
incluídos nesta ordem. 

O primeiro arquivo contém as 
definições globais e uma rotina de 
inicialização que se chama "inicio". 

O segundo contém a rotina de 
"compilação". Não entenda por 
compilação a geração de um código 
executável, mas sim uma codificação mais 
fácil de se interpretar e com isto faz-se a 
verificação sintálica da expressão. 

O nome da função é "compila" e 
recebe uma string e devolve a situação da 
"compilação", i.e., qual foi o erro e, se não 
houve, retorna "0". 

Os erros são : 

1) EsLouro dc constante 

2) Token irreconhecível 

3) Identificador desconhecido 

4) Token inesperado 

5) Parênteses não fechado 

6) Parênteses não aberto 

7) Número de parâmetros inválido 
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O terceiro arquivo contém o inter- 
pretador em si, que se chama "interpreta", 
tendo V e "y" como parâmetros, retor- 
nando o valor calculado e a situação na 
variável "staius". 

Esta variável vai nos indicar se o 
resultado c válido ou não, e se não, qual foi 
o erro. 

Os códigos são (por máscara de 

bits): 

501 divisão por zero. 

502 fora de faixa. 

$04 estouro de exponenciação. 
$08 erro com logaritmo. 
$10 erro com potência. 
$20 erro em raiz. 
O exemplo de uso é o artigo men- 
cionado anteriormente. 

A IMPLEMENTAÇÃO 

Na listagem do "eompila.pas" 
vèem-seda linha 15 até a linha41 atabcla 
de símbolos do interpretador, i.e., os iden- 
tifique ele é capaz de reconhecer. Nela 
estão contidas as constantes, funções e os 
elementos "x" e "y". 

As linhas que vão de 75 a 21 5 são 
do analisador léxico. Este identificará os 
Tokens, e se o Token for um identificador, 
será feita uma busca na tabela de símbolos 
para descobrir qual éo tipoequaléovalor, 
ou o número dc parâmetros (para funções) 

Foi usada uma busca sequencial 
para facilitar a implementação de novas 
funções (um bom exercício). 

O diagrama sintático 1 correspon- 
de ao procedimento "expressão" declarado 
na linha 219 e tem seu corpo contido nas 
linhas que vão de 301 a 305 (função 
"expressão" declarada em 1 1 e com corpo 
em 252 a 266 no interpretador) que chama N 
o procedure "mult" (função "mull" no in 
tepretador) e vai repetir o loop se o Tokeii 
aluai é um '*mais"ou um "menos", caso não 
haja erro. 

O diagrama sintático 2 correspon 
de ao procedimento "mult" que está decla 
rado na linha 228 com corpo nas linhas de 
293 a 299 (função "mult" declarada em 1 6,' 
com corpo em 228 a 250 no interpretador) 
que chama o procedimento "fator" (no 
intepretador), pedindo depois um novo 
Token e repetindo o loop, se este for um 
"vezes" ou um "divisão", caso não haja 
erro. 

O diagrama 3 corresponde ao 
procedimento "fator" que está declarado 
na linha 230, com corpo nas linhas dc 262 
a 291 (função "fator" declarada em 21 e 
com corpo em 200 a 226 no interpretador) 
que faz a sequinte sequência: 

1) Pede um Token ao analisador léxico. 

2) Se este for das classes "mais" ou 
"menos", então pede um novo. 



3) Caso este seja "idntf_fc", que indica uma 
Tunção, então chama a "fc_trat". 

Caso este seja da classe 
"abr_prls", que indica abertura de parên- 
teses, então chama-se o procedimento 
"expressão" e testamos se houve um 
fechamento de parênteses. 

Note que esta é uma chamada 
recursiva. 

Caso seja o resto, i.e., os outros 
Tokens válidos para este contexto, 
aceilamo-os sem fazer mais nada. 

O diagrama 4 corresponde ao 
procedimento "fc_trat" que está declarado 
na linha 232 com corpo nas linhas de 237 a 
260 ( função "fc_trat" declarada em 25 com 
corpo de 186 a 198 no interpretador) que 
faz a seguinte sequência : 

1) Pede um Token ao analisador léxico. 

2) Testa se este é um parênteses. 

3) Faz um loop chamando o procedimento 
"expressão" e contando o númeroi de 
parâmetros até que o Token testado seja 
diferente de " vírgula" ou haja umerro. 

4) Testa o número de parâmetros. 

5) Testa se o token aluai é "fch_prts" que 
indica que o parênteses está fechado. 

O interpretador, como já devem 
ter notado, não é muito diferente na 
implementação. 
As principais diferenças são: 

1) Nas fases "expressão" c "mult" existem 
variáveis temporárias para acumular o re- 
sultado parcial, o tipo da próxima operação 
e a chamada para o novo nível é feita 
diretamente em uma operação. 

2) Existe a função "fc_calcula" para calcu- 
lar as funções que fazem parte da 
expressão. 

3) Não existem testes de sintaxe e 
semântica (a não ser testes de erros de 
execução), nem chamadas ao analisador 
léxico, o que nos faz ganhar tempo na 
interpretação. 

A vantagem de fazer-se uma 
"compilação" prévia está no fatode se fazer 
a verificação sintálica e semântica e a 
análise léxica uma vez só, mesmo pre- 
cisando usar os Tokens muitas vezes. 

Desta maneira economiza-se um 
tempo significante na interpretação. 

Pode-se fazer uma comparação 
{que será um bom exercício), construindo 
um analisador de expressões que faça as 
análises léxica, siniática e semântica 
enquanto interpreta a expressão. 

Uma observação: os interpreta- 
dores Basic fazem uma análise léxica 
prévia do programa que está sendo traba- 
lhado, conhecida como forma compactada 



de se salvar um programa, e quando se 
manda listar oprogramaem questão na tela, 
ele os transforma para formato ASCII, tro- 
cando os símbolos pelos seus identifica- 
dores correspondentes, porem não é feita 
uma análise sintálica prévia. Esta é feita a 
tempo de interpretação, provocando perda 
de tempo durante os loops. 

Nesta implementação a análise 
semântica ficou muito unida com a análise 
sintálica, o que não acontece muito com os 
compiladores, pois é o analisador 
semântico que controla a geração de 
código, e sempre é o analisador sintático 
quem rege todas as ações (inclusive neste 
interpretador). 

Uma coisa bem interessante é que 
se tomarmos algumas precauções, pode- 
mos reunir todos os includcs apresentados 
em um único. 

Note que o interpretador aceita 
funções de duas variáveis, estas cha- 
mando-se V e 'y'. 

Como se pode ver, apesar de não 
ser trivial, a leitura de expressões 
matemáticas pelo teclado é possível de ser 
feita (obviamente com muito bom senso). 
Em Basic, isto seria impossível, pelo 
menos no nível do interpretador apresen- 
tado, que é bastante sofisticado. 

Espero que este arúgo seja de seu 
agrado c que dê a idéia inicial de como 
funciona um intepretador (e um compila- 
dor) ao leitor, e espero que, em uma outra 
oportunidade, possa editar algo mais sofis- 
úcado como, por exemplo, um montador 
Assembly. 
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Arquivo : cotpila.pas 



3 function cotpilal cadeia : tipo.cadeia ) : byte ; 

4 type 

5 tipo.fc.cíe.xy : record 

i noie.idntf : stringt tai_idntr ] ; 

7 case idntf.classe ! tipo.token or 

B idntf.fc : ( n.parat : byte ): 

idntf.cte I ( ctE-valor : real I; 

I end; 



lata 

3 nui-idntf = 23 ; 

1 tab.fc.cte.xy : array [ i . 



.idntf ] of tipo.fc.cte.xy - 



( note. idntf : 'sec 

( note.idntf : 'sign' 

( note.idntf : 'sin 

I note.idntf '■ sqrt' 

( note.idntf : 'tg 

( note.idntf : 'trjnc ' 

( note.idntf : V 

i note.idntf : V 



pos.cadeia : byte ; 

tip.cadeia : tipo.caíeia ; 

pont.lst.atual : tipo-pwit.kt.token ; 
e --t : boolean ; 



I procedure inicialiia; 

1 var 

2 aux : byte : 

3 P.aux : tipo.pont-lst-token ; 



; idntf-c 




. idntf.fc 


; idntf.c 




: idntf.fc 


; idntf.c 




: idntf.fc 


; idntf.c 


iV.Í 


: idntf.fc 


; idntf.c 


asse 


: idntf.cte 


cte.valor 


: 2.7Í328Í82B4 ) 


; idntf.c 


isse 


: idntf.fc 


; idntf.c 


asse 


: idntf.fc 


: idiilL, 


asse 


: idntf.fc 


; idntf.c 


1S56 


: idntf.fc 


; idntf.c 


asse 


: idntf.fc 


; idntf_c 




: idntf.fc 


; idntf.t 


!■,■!■ 


: idntf.cte 


cte.valor 


: 3.14Í5ÍM5359 ) 


; idntf , 


asse 


: idntf.fc 


; idntf. c 


. 


: idntf.fc 


; idntf.c 




: idntf.fc 


; idntf-c 




: idntf.fc 


; idntf.c 




: idntf.fc 


■ 




: idntf.fc 


; idntf.c 




: idntf.fc 


; idntf.c 




: idntf.fc 


; idntf-c 




: idntf.fc 


; !dr:-!f.L 


JS5Í 


: idntf.1 1, 


; idntf.c 


asse 


: idntf -2 ) 



n.parat : 

n.parat : 

n.parat ' 

n.parat : 



.parai : 



n.parat : 

n.parat : 

n.parat ■ 

n.parat : 

njarat : 

njarat : 

njarat : 

n .parai : 

n.parat : 



82 netl pont.lst.atual .proxito ); 

83 pont.lst.atual S= pont.l st .atual'. proxito ; 
34 pont.lsLatual*. proxito != nil ; 

m 

86 léxico := true ; 

87 Hhile cadeia! pos.cadeia 1 in l »(í, J do 

88 pos_cadeia != succl pos.cadeia ) ; 
89 

Tl case cadeiat pos.cadeia 3 of 



lie cadeiat pos.cadeia ] in [ 'a' .. V , 
IH 

i := succl i ) ; 

ttp.cadeiaf i 1 :- cadeiat pos.cadeia 1 ; 
pos.cadeia != succl pos.cadeia ) 



ttp.cadeiat 1 ] '•- chr( i ) j 



«bile ( tab-fc.cte.xyt kíd l.note.idntf O ttp.cadeta ) and 
< teio ( m» idntf ) da 
kíd to succl teio ); 

if tab.fc.cte.xyt teia ]. note. idntf = ttp.cadeia then 
bqln 

pont-Ist.atuar. classe tab-fc.cte.xut teio ]. idntf .classe ; 
case ptmt.lst.atual .classe of 
idntf.fc : 

l>ont_l5t_atuar.idntf_fc_cnd :^ teio ; 
idntLcte : 

pont.lst.atual .idntf. cte.valor := 

tab.fc.cte.xat teio J.cte.valor 



besin 

pont.lst.atual*. classe := erro ; 
pont.lst.atual ".n.erro := 3 ; 
léxico := false 



pos.cadeia := predl pos.cadeia ) 



«bile cabeca.lst () nil da 
besin 

p.aux cabeca.lst ; 
cabeca.lst := cabeca.lst'. proxi* 
disposel p.aux ) 

netl cabeca-lst ); 
pont.lst.atual w cabeca.lst ; 
pont.lst.atual .praxito :- nil ; 



ulule cadeiít pos.cadeia 1 in t 'I' .. '9 3 do 
beyin 

valor '•= valor *1* < ordl cadeiat pos.cadeia ] 1 - 48 i 
pos-cadeia := succl pos.cadeia ) 

end; 

if cadeiat pos.cadeia 1 ■ V tben 



cadeia t* cadeia ♦ NI* 



75 function léxica : boalean ; 
74 var 

77 v.aux, bise, valor : real ; 

78 teio.i : Me ; 

7? sinal : integer ; 



«hile cadeiat pos.cadeia ] in 1 V .. Y ] do 
besin 

valor := valor l I ordl cadeiat pos.cadeia 1 ) 4S l/base; 
base := base/U.I ; 
^ pos.cadeia := succf pas.caíeia ) 



if upcasel cadeiaf pos.cadeia J ) = 'f ' then 
begin 

pos_cadeia := succl pos.cadeia ) ; 
v.aux := l.t ; 
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sinal := i ; 

if cadeia! pos_cadeia I ll t 
betin 

if cadeiaC pos.cadeia 1 - 

sinal := -i ; 
pos.cadeia := sucd pos.cadeia ) 

end; 



■' ] thai 
then 



'?' ] do 



«hile cadeiat pos.cadeia ] ii 
begin 

v.aux := v.auxMf * ordí cadeiat pos.íadeia ] I 40 ; 
P05_ca.de i á '■- succ ( pos_cadeia ) 

end; 



241 
242 
243 
244 
245 
24Ú 
247 
248 



Pont.lsLatuar. classe t* erro : 
pc»t _1 st.at uai * . n_erro := i j 
léxico :- false 



valor :- valor»pot< absl valorKsinaUv.aux ) 

end; 

if pont-lst-atual*. classe O erro then 
pont.lst-atuír.cte.valor := valor; 

pos.cadeis '■- predí pos.cadeia ) 

Mil 

líl 

ponUst-atual .classe := fii-lnti ; 
V i 

poat-lsLatual*. classe := lais ; 

PonUsLatual*. classe := lenos ; 
i : 

pont.lst.atual*.classe := vezes ; 
7' : 

r , pait.Ut-atual .classe divisão ; 
pont.l st .atual*. classe := abr.prts ; 
, pont Jst.atual .classe := fch-prts ; 
pont.lst .atual '.classe := virgula ; 

else 

begin 

pont.lst .atual. classe := erro ; 
pont.lst .atual*. n.erro := 2 ; 
léxico ís false 

end 

mb 

pos-cadeia := succl pos.cadeia ) 



8 CM- ) 

9 procedure expressão ; 

1 procedure expr.trat.errol nu_.erro 

2 begin 

3 pont.lst .atual '.classe := erro 

4 p«it.lst-atuar.n.erro := 

5 expr-erro true 



8 procedure tult; 
9 

1 procedure fator; 
1 

2 procedure fc.trat; 

r 

P_aux : tipo-pent. 
cont : bgte ; 



7 begin 

p.aux :- pont.lst.itual ; 



if pont.lst. atual*. cl asse O abr.prts then 
expr.trat.errol 6 1 

else 
begin 

cont :-- t i 
repeat 

cont := succt cont ) ; 
expressão . , 

until í pont.lst-atuaf.classe O virgula ) or expr.erro ; 

if ponLlst.it uai*. cl asse O fch.prts then 

expr.trat.erro( 5 1 . 
else if cont O tab-fc.cte.xg[ p.aux'. idntf-fc.cod l.njarai then 

expr.trat-errol 7 1 



25? 

2ÍÍ begin 
261 
262 
263 
2i4 



if léxico then 

begin , . , . 

if ponUst-atual .classe in t iai5,« 
expr.erro P> not léxico ; 

if not expr.erro then 

case pont.lst.atual .classe of 
abr.prts : 



271 

27i 
272 
273 
274 
275 

S$ 
277 

27B 

279 



end; 
idntf.fc : 
fUrat ; 

cte 

idntf.i , 
idntf.2 , 
idntf.cte : 

else 



if not expr-erro then 

if pont.lsLatual*. classe (1 fch.prts then 
expr.trat-erroí 5 ) 



expr.trat.erro( 4 1 



288 expr.erro := true 

289 end; 
29* 

291 begin 

292 repeat 

293 fator; 

294 if not expr.erro then 

295 expr.erro := not léxico 

296 until not i pont.lst .atual*. classe in l vezes.divisao ] ) or expr.erro 

297 end; 
298 

299 begin 
3M repeat 
3M Pi» 

3K until not ( pont.lst.at uai '.classe m [ iais,ienos ] ! or expr.erro 
3.3 end; 
344 (Mi 1 



317 begin 



inicializa ; 



if { pont-lsLat uai '.classe = íii-lnh ) and not expr.erro then 
cupila := I 



3iB end; 



else if expr_erro then 

coapila :- pontJst.atual .n_erro 

else 

cupila := 8 
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fccakula '■- hl tab.parait 1 ] ); 
: C Ipg J 

if taUarait í ] í- * then 
begin 

status := status or Ít8 ; 
fccakula :- i 

end 
else 

fccakula := In í tab.parait 1 ] )f 2.3 
: t ml 

if tabjarait í 1 ) tab.parait 2 ] then 

fccakula != tab.parait í ] 
else 

fccakula :- tab.parait 2 ] ; 
: [ iin J 

if tah-parait i 1 í tab-parait 2 ] then 
fccakula := tab_parait í ] 

else 

fccakula := tab.paraiC 2 1 ; 
: ( iod ) 

if tab.parait 2 10» then 
fccakula := tab.parait 1 ] - 

tab_parai[ 2 Mrunc( tab.parait í ]/tab.parai[ 2 ] ) 

else 
hegin 

fccakula := I ; 

status := status or Iti 

end; 

! { poH ] 

if tab.parai[ í 1 - 8 then 

fccakula I 
else if tah.parait 1 ] > 8 then 
begin 

aux :- tab.parait 2 ]>ln( tab.paraiL 13); 

if aux í 87.1 then 
hegin 

status :- status or 118 ; 
fccakula := e«p( 87.1 > 

end 
else 

fccakula ■- exi>[ aux ) 

end 
else 
begin 

aux := tab.parai[ 2 J*ln( tab-parait 11); 
if ( aux ! 87.» ) and ( abs( tab.parait 2 ] )<= laxiní ) then 
if odd< truncí tab. P arai[ 23 ) ] then 
fccakula - expl aux ) 

else 

fccakula exp( aux ) 

else 
begin 

status :- status nr li# ; 
fccakula :^ expl 3/.» ) 

end 

end; 

: í rand 1 

fccakula := randoit trurcl tab.para#[ 11)1; 
: t raund I 

fccakula roundl tab_parait 1 ] ) ; 
: t set J 
begin 

aux := cosi tab.parait 1 ] ) ; 

if aux - 8 then 

begin 

aux := ()uase_zero ; 

status := status or U2 

end; 

fccakula l.í / aux 

end; 

: t sign ) 

if tab.parait í J = 8.8 then 

fccakula := 8.8 
else if tabJarait 1 ] ) í then 

fccakula := +1.» 

else 



141 
142 
143 
IH 
145 
144 
147 

íie 



175 
174 
177 
178 
179 



184 end 
185 

1SÍ beg 
187 



fccakula := sin( tab.parai[ 1 ] ); 
: t sgrt ) 

if tab.parai[ 1 ] { * then 
begin 

status :- status or 121 ; 
fccakula := í 

end 

fccakula := sgrtl tab.paraii 1 ] ) ; 
s í U 3 
begin 

aux cosi tab.parail 1 ] ! ; 

if aux = • then 

begin 

aux guasczero ; 

status == status or 142 

end; 

fccakula := sinl tab.parai[ 1 ] ) / a 

end; 

: [ trunc ) 

fccakula := truncl tab.parail í ] ) 



p.aux : ; pont.lst-itual ; 
pont .1 st .atua 1 := pont.Ut.atual".proxiio ; 
I ; 



repeat 

cont == sutc( cont ) ; 
taljarai t cont ) := expressão 
until pont. 1 st. at uai". cl asse O virgula ; 



m 

192 
193 
194 
195 
194 

197 fc.trat := fccakula 

198 end; 
199 

2H begin 
2*1 

212 

a- 

2Í4 
2»5 



2*/ 
2*8 

289 



216 
217 
2iB 



pont .1 st .atua l '■- pDnt.lst.atuai'.proxiio ; 
sinal := +Í.I ; 

if pont.kt-atual .classe in [ iais,ie<ios ] then 
begin 

tf pont .1 st _at uai .classe = lenos then 
sinal := -1.1 ; 

pont. 1 st .atua! := pont.lst_atual*.p™iiio 



case pont. Ist.atual*. classe of 
alr.prts '• 

= sinaliexpressao ; 



fatnr i 

idntf.fc : 

fator : 

iíntf-1 : 

fator : 

idntfJ : 

fator : 

idntf-cte : 

fator : 



cte 



fator 



sinal*fctrat ; 
sinaliX ; 
sinaliY ; 

sinaUpont-lst.atual'.idntf.cte.valor ; 
5Ífial»pont-Ht.atuar.cte.valor 



■ultiplicacao :- true ; 



if lultiplicacao then 

tip.valor l= tip.valor»fatnr 



status != status or Ml ; 
aux :- quase-zero 



tip_valDr :- tip .valor / aux 



pont. Ist.atual != pant.lst.atuar.proxiio ; 
■ultiplicacao := pont. Ist.atual". classe = vezes 
until nDt ( pont-lst-atual*. classe in [ vezes, divisão ] 1 ; 



tip.valor t ; 

sinal := 41 ; 
repeat 

tw.valor := tw.valor > sinalsmlt ; 

if pont.I st -atual*. classe = lais then 
sinal := *Í 



until not ( pont-kLatual'. classe in [ laisjenos 1 I 
expressão :- tip .valor 



begin 

status s= i ; 

pont. Ist.atual t* cabecaJst ; 
interpreta := expressão 



intui vo : glbldef.pas 
í 

2 const 



pag. '■ 1 



tipo-cadeia = stringl IW 1 ; 

tipoJoten - I iais,ienos,veze5, divisão, abr.prts,fch-prts,wgula, 

cte, idntfJc, idntf-cte, idntf.l,idfitf-2,fii.lnh, erro ); 
tifio-pont-lst-tolen = "tipo.lst.token ; 
tipoJsLtoken - record 

proxiio i tipo.pont.lst.tohen ; 
case classe : tipo.token of 
cte :( cte.valor : real ) ; 
idntf.fc :( idntf.fccod : bgte 1 : 
idntf_cte :( iintf. cte.valor : real 1 ; 
erro : I n.erro : bgte ) ; 



í 
II 

ti 
12 
13 
14 
15 
14 
17 
18 

19 

20 v 

21 
22 
23 

24 procedure inicio; 



cabecaJst i tipcpont.lst.token ; 



I function pot( a,b : real ) : real ; 

1 begin 

2 pot := expí b»lnt a 1 ) 
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UTILIZANDO O DATA CORDER 



A grande maioria dos usuários do MSX ainda trabalha com 
um gravador cassete, o Data Corder, como forma de ar- 
mazenamento dc dados, devido ao baixo custo que o mesmo 
apresenta. 

Todos nós sabemos que existem meios melhores, mais 
confiáveise, principalmente, mais rápidos de se gravar e recuperar 
dados, mas a intenção deste artigo é apresentar informações que 
poderão aumentar o desempenho deste periférico. 

Pra gravarmos e lermos dados do cassete, o MSX possui os 
seguintes comandos: 

CLOAD - Lê um programa em BASIC 
CSAVE - Grava um programa em BASIC 
MERGE - Junta o programa BASIC presente na memória 
com um programa lido do cassete gravado em ASCII 
SAVE - Grava um programa no formato ASCII 
LOAD - Lê um programa gravado no formato ASCII 
BLOAD - Lê um programa cm Assembler 
BSAVE - Grava um programa em Assembler 
Para verificarmos um programa gravado em BASIC temos 
o comando CLOAD? 

Para acionarmos o motor do cassete, ou a sua parada, 
usamos o comando MOTOR. 

GRAVANDO OS DADOS 

Para gravar um programa em BASIC na fita cassete, 
podemos utilizar CSAVE ou SAVE. 
Exemplo: 

CSAVE "nomearq" ou SAVE "CAS:nomearq" 

A gravação em formato ASCII é mais demorada mas 
apresenta a vantagem que o programa poderá vir a ser adicionado 
a um outro, ou seja, à medida que você vai desenvolvendo o seu 
programa, vai efetuando a sua gravação em formato ASCII e, ao 
final, efeiua um MERGE de todos os blocos gravados, obtendo, 
assim, um único programa. 

Ao utilizarmos o comando MERGE devemos tomar o 
cuidado para que as linhas do programa que vai ser lido não sejam 
as mesmas do programa que já se encontra na memória. Caso isto 
venha ocorrer, você perderá linhas de programação do programa 
que já se encontra na memória do micro. 

Quando efetuamos a gravação de um programa podemos 
especificar, também, a velocidade de gravação, ou seja a laxa de 
transmissão de dados para o cassete, que poderá ser de 1200 ou 
2400 bauds. Ao ligarmos o MSX, o mesmo já se encontra pro- 
gramado para assumir uma taxa de transferência de 1200 bauds, 
que é a velocidade recomendada pelos fabricantes, pois apresenta 
um grau de confiabilidade maior, tendo em vista que os dados 
transmitidos serão mais distribuídos ao longo da fita cassete. 
Quanto maior for a velocidade dc transferência, menor será o 
espaço utilizado ao longo da fita. 

Assim, para gravarmos um programaBASIC com uma taxa 
de 2400 bauds, utilizaríamos o comando CSAVE do seguinte 
modo: 

CSAVE"nomearq", 2 onde ',2' específica uma taxa de 
transferência de 2400 bauds. 

Da mesma forma podemos operar com o comando 
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SA VEXAS: nomearq" para alterarmos a taxa de transmissão. 
Exemplo: 

SAVE"CAS:nomcarq",2 

Ao utilizarmos os comandos SAVE e LOAD, para a 
gravação de arquivos no formato ASCII, devemos indicar qual o 
dispositivo de saída/entrada, tendo em vista que os mesmos são 
utilizados para a leitura e gravação de dados em disco. 

LENDO DADOS 

A leitura de dados do cassete pode ser feita com um dos 
comandos abaixo: 

CLOAD - Lê o primeiro arquivo em BASIC encontrado 
CLOAD "nomearq" - Lê o arquivo especificado 
LOAD"CAS:" - Lê o primeiro arquivo em BASIC encon- 
trado 

LO AD"CAS:" ,R - Lè o primeiro arquivo em Basic encon- 
trado e roda-o automaticamente após o carregamento 

LOAD"CAS: nomearq" - Lê o arquivo especificado 

LOAD"CAS:nomearq",R - Lê o arquivo especificado e 
roda-o ao final do carregamento. 

RUN"CAS:" - Lê o primeiro arquivo encontrado e roda-o 
automaticamente 

RUN"CAS:nomearq" - Lê o arquivo especificado e roda- 
o automaticamente 

Como você já deve ter notado, para ler um programa com 
o comando CLOAD, o mesmo deverá ter sido gravado com 
CSAVE. Para ler um programa com LOAD, ou com RUN, o 
mesmo deverá ter sido gravado com SAVE. 

O comando RUN"C AS:" é muito utilizado para a leitura de 
jogos que possuem mais de um bloco e que têm um pequeno 
programa em BASIC cuja função é efetuar o carregamento dos 
demais, evitando, assim, que se tenha que dar vários comandos de 
leitura. A função do comando RUN"CAS:", que é exatamente a 
mesma do LOAD"CAS:"Ji, tem a vantagem de não ser necessário 
dar o comando RUN após o carregamento, pois o programa será 
executado automaticamente. 

Na leitura você não precisa se preocupar com a taxa de 
transmissão, pois isto é feito automaticamente pelo computador 

JUNTANDO PROGRAMAS 

Juntar dois programas pode vir a ser muito útil e poupar 
algum tempo dc digitação de rotinas que já foram desenvolvidas e 
que se encontram armazenadas. Para tal existe o comando 
MERGE, que permite que um programa, gravado em formato 
ASCII, possa ser lido e intercalado com o progRama que já se 
encontra na memória do micro. 

A sintaxe do comando MERGE é a seguinte: 
MERGEXAS : nomearq" 

PROGRAMAS EM LINGUAGEM ASSEMBLER 

Para gravarmos um programa em ASSEMBLER usamos 
os comandos BSAVE e BLOAD. A gravação de programas em 
Assembler exige uma série de conhecimentos desta linguagem, 
sendo assunto de artigos que serão publicados nos próximos 
números de CPU. 



I CONCURSO NACIONAL DE 
SOFTWARE PARA MSX 



A NEWSOFT INFORMÁTICA LTDA. lança, para 
todo o país, o I Concurso Nacional de Software para MSX, com o 
objetivo de abrir espaço para a divulgação de novos talentos 
brasileiros. 

Poderão participar do concurso programadores de 
qualquer idade, profissionais ou não da área de informática de todo 
o Brasil, sendo vedada a participação no concurso de funcionários, 
ou parentes, da empresa patrocinadora e/ou realizadora, bem como 
os membros da "Comissão Julgadora". 

Os interessados poderão participar com um ou mais 
programas, programados em Basic, Linguagem de Máquina, ou 
qualquer outra, que versem sobre qualquer lema (jogos, aplicati- 
vos, utilitários, etc), desde que sejam inéditos e de autoria do 
participante. 

Os programas deverão ser remetidos em disco, ou fita, 
até o dia 3 1 . 1 2.88. data do encerramento das inscrições, acompan- 
hados de uma declaração dc autoria, contendo os dados pessoais, 
como nome, endereço e telefone para coniato, do autor. 

Os trabalhos dc seleção e classificação serão realizados 



por uma "Comissão Julgadora", designada pela empresa reali- 
zadora, sendo as suas decisões irrevogáveis e ireliatávcis. Como 
critério de avaliação para apuração e classificação serão observa- 
dos os seguintes itens: 
a- criatividade; 
b- originalidade; 

c- adequação do software ao mercado de informática. 

Todos os programas classificados, ou nâo, passarão a 
pertencer à Empresa realizadora, que se reserva ao direito de fazer 

0 uso que lhe convier, podendo, ainda, utilizar o nome dos 
comlemplados na divulgação do concurso, sem qualquer ónus para 
a mesma. 

Os prémios são: 

1 lugar - 1 drive 3 1/2 polegadas 

2 lugar - 1 microcomputador padrão MSX 

3 lugar - 1 impressora 

O resultado será divulgado através das revistas espe- 
cializadas da área, contendo a relação dos ganhadores. 

Os prémios serão entregues pelo cartão nacional. 



I CONCURSO NACIONAL DE SOFTWARE 

PARA MSX 

REGULAMENTO 



A NEWSOFT INFORMÁTICA LIDA.. Onça 



QUEM NÃO PODf PARTICIPAR: 

...... ;■ ■ ; 

I juloooora" 



CONCURSO NACIONAL DE 50FT- 
Igacãoae 



COMOPARnCIPAR: 




FICHA DE INSCRIÇÃO 



Titulo do Programa _ 



DECLARAÇÃO DE AUTORIA 

Declaro aue o programa que estou enviando pdro partia 
ao I CONCURSO NACIONAL DE SOFTWARE PARA MSX 6 ' 
e ae minha autoria 



Remeta para NEWSOFT INFORMÁTICA LTDA /J C " 

- Rua Senador Dantas 117. Sala 736 - Rio / INSCRIÇÃO 

de Janeiro — RJ — CEP 2D031 / HOJE MíSMOi 



Cartão Nacional 



APOIO: 

I participe! | o Cartão que está a seu lado 
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CONECTIVIDADE 
MSX-PC-MAINFRAME 



Victor Grytz 
MSX Informática 



Quando há mais de três anos, ao mesmo lempo em 
que o padrão MSX era introduzido no Brasil, resolvemos criar a 
MSX Informática Ltda., especializada unicamente em MSX. 

Muitos nos chamaram dc loucos, pois achavam que 
o MSX não passava de um vídeo game de luxo. 

A ausência de programas mais sérios, bem como a 
faltados periféricos prometidos pelos fabricantes, faziam com que 
houvesse uma certa decepção quanto à consolidação do MSX no 
nosso país. 

Hoje, passados estes anos iniciais, podemos com- 
provarqueonossopioncirismoseslavacorTeto.com maisde 2000 
programas disponíveis nas áreas de lazer, profissional, educa- 
cional, aceitando diversas linguagens, como Cobol, Turbo Pascal, 
Fonh, Fortran, Ada. Lisp, C. Prolog, etc., além de possuir revistas 
especializadas, como esta, em tâo pouco lempo o MX se tornou o 
equipamento de 8 bits mais vendido no país. 

A conversão de programas famosos, como o 
dBASE II, Supercalc e Wordstar, com a grande vantagem de 
possibilitar o intercâmbio de arquivos com micros de 16 bits do 
padrão IBM PC, consolidaram ainda mais a posição do MSX no 
Brasil. 

A cada dia que passa écrescente onúmerodeempre- 
sasque, sob diversas formas, se utilizados MSX paratransferência 
de dados com micros de 16 bits c mainframes. 

O serviço de Videotexto possuí cerca de 10.000 
micros para utilização como terminal, possibilitando o acesso às 
suas informações a uma infinidade de profissionais e empresas, 
que, além disso, o utilizam para os serviços de correspondência, 
finanças e controle nos seus próprios negócios. 

Para as pessoas que possuem um MSX próprio, o 
acesso ao Videotexto, Cirandão e outras bases de dados, pode ser 
feita através de um modem, com um bom programa de 
comunicação, como o VTXMSX, por exemplo. 

Nestes serviços podem ser encontradas 
informações para o uso diário, troca de mensagens e intercâmbio 
dc programas. Assim, uma pessoa de São Paulo pode se conectar 
a outra do Rio de Janeiro, Brasília ou qualquer outra cidade do 
mundo. 

Existem, ainda, outras formas de conexão para a 
troca dc arquivos e programas com outros computadores. São as 
redes e os emuladores de terminal. No caso das redes, a Targus 



permite a ligação de ate 16 micros MSX em rede ligados a um IBM 
compatível, e os emuladores de terminal da DDX e da Cibertron 
permitem que até 25 MSX possam compartilhar os recursos de 
hardware software do PC ou mainframe. 



A REDE TARGUS 



A Rede Targus possui um multiplexador de canais 
projetado para gerenciar 16 portas seriais assíncronas, aluando 
comogerenciador da rede ccontrolando todo e qualquer acesso aos 
arquivos de dados. 

Seu sistema básicode transmissãoerecepçâoé feito 
no formato "firsl in - first out", ou seja, o primeiro terminal que 
solicitar será o primeiro a receber prioridade de resposta, e assim 
sucessivamente. 

O software, desenvolvido em Assembler, é capaz 
dc gerenciar as solicitações de cada um dos 16 terminais, sem que 
haja degradação no tempo de processamento.Como o MSX nao 
possui saída serial, foi desenvolvida, lambém, uma interface 
serial, que possui em sua estrutura interna uma eprom contendo 
rotinas de transmissão e recepção de dados necessárias para a 
comunicação dos MSX com o multiplexador e com o PC. 

Na rede, as tarefas de atualização de arquivos, troca 
de informações, gravação de programas, etc. são processadas "on- 
line" em ambiente simulado de mulliusuário. O sistemaé extrema- 
mente fácil de ser operado, possibilitando que todos terminais 
solicitem a manipulação do mesmo programa, que cada terminal 
manipule um programa diferente e queo mesmo arquivo de dados 
possa sermanipulado por vários terminais e vários programa^ si - 
multaneamente 

Os terminais da Rede Targus podem estar em 
distâncias superiores a 500 metros, sendo interligados por uma 
rede de cabos coaxiais. O multiplexador, ou MUX, custa cerca de 
135 OTN's e cada interface serial custa, aproximadamente, 25 
OTN's. Acompanha o multiplexador dois softwares gerenciadores 
da rede, um em Cobol e outro em dBASE III. 
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OS CARTUCHOS EMULADORES DDX E CIBERTRON 

Os cartuchos emuladores dc terminal DDX e Ci- 
bertron possuem um software residente que posibilita aos micros 
da linha MSX a emulação de terminais IBM PC (XT, AT ou 386), 
além da emulação de terminais mainframe que possuam conversor 
de protocolo. 

O cartucho da Cibertron , por exemplo, possui uma 
série de características, como emulação de terminai do tipo VT52, 
saída ara impressora local, hardeopy de tela, velocidade de até 
19200 bps, caracteres gráficos do IBM disponíveis no MSX, para 
permitir que programas como o dBASE III, Lotus 123 e muitos 
outros possam ser utilizados no terminal MSX. 



Estes cartuchos funcionam para distâncias mais 
curtas, até 50 metros, e oscu custoé de cerca de 40 OTN's cada um, 
mas nao devemos nosesquecer que, nestescasos, há necesidade de 
um software do tipo Multilink, Pick, PCMOS, etc, na faixa de 1 50 
OTN's. 

A grande vantagem das redes e emuladores de 
terminais MSX é que, além de terem um custo inferior a qualquer 
terminal dedicado existente no mercado, ainda possibilitam a 
utilização do micro para processamentos locais, possibilitando 
rapidaemnte o retorno do investimento realizado. Deste modo, 
com a entrada do MSX no restrito mercado das redes e terminais, 
fica consolidada a sua posição de lider no mercado de 8 bits em tào 
pouco tempo, mais uma vez comprovando a nosssa crença no 
potencial deste equipamento. 
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CÁLCULO DE CIRCUITOS 
RESSONANTES L-C 



ANTONIO FERNANDO SHALDERS 



Um grande problema para quem lida com rádio 
frequência é o coneto dimensionamento dos circuitos ressonantes 
do tipo indutor capacitor, pois este é altamente crítico. 

0 programa apresentado dará uma imensa ajudaarádio 
amadores, estudantes de engenharia eletrônica e afins, pois faz 
todos os cálculos relativos ao assunto com grande rapidez e con- 
fiabil idade. 

Assim que o programa começar, aparecerá um menu de 
opções. Faça a sua escolha, pressionando o número em questão e, 
logo após, pressione [RETURN]. 

A frequência de ressonância é determinada quando as 
reatâncias capacitiva e indutiva dos componentes do circuito 
ressonante se igualam. 

Estas reatâncias sao dadas por: 

Xc=l/(2xnxFxC) 
X1 = 2xjexFxL 

Xc e XI indicam as reatâncias capacitiva e indutiva, 
respectivamente (em ohms). F indica a frequência em Hertz, C 
indicaacapacitânciaemFarads.Laindutânciaem Henrysenvale 
3.141592654, aproximadamente. 

Igualando- se as duas equações, obtemos a fórmula 
geral para ressonância: 

| F=l/(2xrtxSQRT(LxC)) | 

O programa apresentado usa esta fórmula. As unidades 
em questão sâo as mesmas. 

No caso de operarmos com um capacitor variável, 
podemos obter a faixa de frequência coberta, pelo circuito res- 
sonante, e vice-versa. Isto é particularmente útil na construção de 



rádio transmissores ou receptores de FM, por exemplo. 

Jáo cálculo de indutores (ou bobinas) sempre foi muito 
problemático, mas o programa se sai muito bem em relação a isto. 

Para isso, utilizam-se duas fórmulas específicas, uma 
para cada relação comprimento-diámetro da bobina. Lembre-se 
que um pouco de bom senso é necessário quanto a isso. Não vá 
querer calcular um indutor com diâmetro de 1 mm e comprimento 
de I m! 

As fórmulas utilizadas pelo programa são as seguintes 

(c é o comprimento e 1 o diâmetro): 

Se: 0.3 < c/d < 1.0 

N = sqrt( (143 x L x c*0.57) / (dM.57) ) 
Se: 1.2 < c/d < 8.0: 

N = sqrt( (137 x L x ^.863) / (d*1.863) ) 

N indica o número de espiras, C o comprimento da 
bobina e D o diâmetro. 

Se a relação c/d estiver fora dos intervalos acima 
mencionados, o resultado não será confiável. 

Os resultados obtidos sâo extremamente confiáveis, 
pois vários indutores foram confeccionados segundo este método 
e conferidos em uma ponte de indutâncias da General Radio, de 
aproximadamente US$ 6,000.00 e o erro foi menor que 5% ! 

Se você desejar saber o fator de qualidade do indutor, 
basta usar a seguinte fórmula: 

Q = (2xnxFxL)/R, onde R é a resistência ohmica 
do fio. Esta opção não foi incluída no programa. Fica a seu critério 
incluí-la ou não, pois o Q das bobinas calculadas geralmente é 
satisfatório. 

As bobinas são de seção circular e núcleo de ar. 
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Com o cartucho modem do T€LCOM 
TCLCMRTICR você pode aeessor o Ciran- 
dõo. o flruonda. o Bireme. comunicar-se 
mkro-à-mkro. e contactar bancos de da- 
dos no Brasil e no Citerlor. 

O multimodemjã incorpora a RS-232, e 
o software de comunico); õo é gratuito. 

i TG.COM T€l€MRTICR 
Rua finita Garibaldi. 1700 -f: (0512)419871 
90450 - Porto Alegre - RS - Brasil 


MSX 

O único que opero em 
75. 300 e 1200 bits/s. 
em B€U e em COTT. 
Compotível com o €X- 
P€RTeoHOT-BIT. 







32 CPV 



PROGRAM LC 30 



Este programa calcula os valores de 
componentes para circuitos ressonan 
les L-C, bem como as faixas dc ope- 
ração dos mesmos. Calcula também a: 
dimensões de indutores com seção 
circular e núcleo de ar. 



Cl.C2,L,Fl.K2 SEAL; 
A JNTEGER; 
C CHAR; 



( definiçio dl funçio potenciação) 
FIJNCTION POT(B,E:REAL):REAL ; 



(cá 



Dninci.) 



PROCEDURE FREQUÊNCIA; 
BEG1N 

WRITELN ("# CAICULO DA RESSONÂNCIA #'); 
WRITELN; 

WRITECL (H) : '); READLNfL): 
WRlTEfC (F) : '). READLN(Cl); 
WRITELN; 

Fl:-l/(2-Pt*SQRT(L*Cl)): 
WRTTELN(" RES S ON ANCIÃ EM i '.Fl HZ'); 
END; 



[ cálculo d 



PROCEDURE INDUTÂNCIA; 
BEGIN 

WRITELN ("# CALCUl-O DA INDUTÂNCIA #•); 
WRITELN; 

WRTTECF (HZ) : '); READLN(F1); 
WRITECC{K) : '); READLN(Cl); 
WRITELN; 

L:=SQR(1 /(2*PI*F1 *SQRT(C1 ))); 
W RTTELN (' INDUTÂNCIA : 'J..' H'); 
END; 



WJUTE 



* CALCULO DA CAPACITANC1A *' 



WRITELN. 

WRITECF (HZ) : ');READLN(F1>; 
WRITECL (H) : '); READLNfL): 
C!:-SQR(1/(2*PI-F1*SQRT(L))); 
WRITELN; 

WR]TELN( 'CAPAGTANCI A ! 'JCÍ> F'); 



PROCEDURE F.FREQ: 
BEGIN 

WR1TELN('# CALCULO DA FA Di A DE FREQUÊN- 
CIA ty, 

WRITELN; 

WRITE( 'CAPA CITA NCIA MÍNIMA (F) : '); 
READLN(Cl); 

WRITEf 'C APA OTA NC [A MÁXIMA (F) : '); 
READLN(C2); 

WRITEC I NDUT A NCIA (H) ; '); READLN(L); 

FI:»I/(2*PI*SQRT(L-C1)); 

Fi-1/(2*P[*SQRT(L*C2)); 

WRITELN; 

WRITELNCFREQ. MÍNIMA ! ' JP2/ HZ'): 
WRITELN (' FREQ. MÁXIMA : ',F1,' HZ'); 
END; 



PROCEDURE F_CAP, 

WRITELNC* CALCULO DA FAIXA DE CAPACI- 
T A NCIA *■), 
WRITELN; 

WRITE( 'FREQUÊNCIA MÍNIMA (HZ) : '): 
READLN(Fl); 

WRITE( 'FREQUÊNCIA MÁXIMA (HZ) : '); 
READLN(F2); 

WRITE( 'INDUTÂNCIA (H) : '); READLNfL); 

Cl :-SQR<l«2*Pl*Fl •SQRTfL))); 

C2:-SQR<1/(2*P1'F2*SQRT(L))); 

WRITELN; 

WRITELN ( ' C AP ACTTANCI A MIN : '.C2,' F'); 
WRITELN) ' CAPACIT ANCIÃ MAX : '.Cl.' F'); 



(cálculo dl bobini) 

PROCEDURE BOBINA; 

WRITELNC» CALCU1X) DA BOBINA *'); 
WRITELN; 

WRJTELN('# SEÇÃO CIRCULAR / NÚCLEO DE 
AR#'); 

WRITELN: 

WRITECINDUT ANCIÃ (jlll) : '); READLNfL); 
WR1TEC DIA METRO (cm| : '); READLN(Cl); 
WRITE( 'CO MPR1MENTO (cm) : '),READLN(C2); 



( «colhi di fórmuli em ftinçio 



Fl ;-C2/Cl ; 

1F ( (Fl>0.29) AND (FK1.01) ) THEN 

F2:-SQRT((M3-L-POT(C2.0.57))/POT(C1.1.57)) 
ELSE 

1F((F1>1.19) AND (Fl <S.01) ) THEN 
F2:-SQRT((I37*L*POT(C2.0,S63))/ 
POT(Cl,LB63)) 
ELSE 
BEGIN 
WRITELN; 

WRITELNC"* RESULTADO NAO CONFIA - 



VEL" 



WRITELN. 

WRITELN! 'TENTE NOVAMENTE'): 

DELAY(1600); 

CLRSCR; 



GOTOXY(l.lO); 

WRITECA BOBINA DEVERÁ TER '.F2;4;t,' 
ESPIRAS.'); 



PROCEDURE MENU, 



CLRSCR; 



'XY(9,1 



GOTOXY(9,2); 
GOTOXY(9,3); 
GOTOXY(9.4); 
GOTOXY(9,5); 
GOTOXY(8.7). 
Shildcrs'); 

GOTOXY(1,10); WRITEC 



WRITECQ am ecto o 

WRITECn d a a □') 

WRITECn n m cmj □ 

WRITECO o a a □■) 

WRITEC(C) 1988 by A. F. 



GOTOXY(8.14); 

GOTOXY(8.15); 

GOTOXY(8,16); 

GOTOXY(8.17); 
FREQUÊNCIA'); 

GOTOXYI8.1 8); 
CAPA CITA NC1 A ' ) ; 

GOTOXY(8,19); 
BOBINA'); 

GOTOXY18.24); 

READ(A). 

IF(<A<l)OR (A 



WRITECIl] - FREQUÊNCIA'); 
WRITEf 1 2] - INDUTÂNCIA '); 
WRITEC 1 3] - CAPACITANC1A'). 
WRITEC (4J - FALXA DE 

WRITEC|5J -FATXADE 

WRITEC [6J - CALCULO DA 

WRITEC OPÇÃO : '): 

>6) ) THEN MENU ; 



CASE A OF 1 ; FREQUENCI/ 
2: INDUTÂNCIA; 
3: CAPACITANC1A: 
4: F_FREQ-. 
S:F_CAP. 
6: BOBINA; 



( inidiliuçio do programi ) 

PROCEDURE INTT; 

MENU; 

Cl:-0: 

C2:-* 

L:-0; 

FtwO; 

F2:-ft 

GOTOXY(1.24); 

WRITEI ' DESEI A CONTINUAR (Sfffl '); 

READ(KBD.C); 

C:-UPCASE(0; 

IF (C-S') THEN INTT: 
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dBASE II PLUS MSX 
dBEST 



DINO H. POLETTO 
DIRETOR DA 1'RINC EUS WA RE 



Não é preciso pensar muilo para sc perceber que quase 
todas as profissões ou empresas requerem algum sistema bem or- 
ganizado para o armazenamento c recuperação dc informações. 

Mesmo a microempresa pode se beneficiar de um eficiente 
Sistema Gercnciador de Dados. 

O gerenciamento de dados é, sem dúvida, um dos mais 
úteis empregos que se pode dar ao microcomputador. 

O banco dc dados é, simplesmente, um conjunto dc dados 
organizados de forma a serem usados com um determinado ob- 
jeúvo. Um exemplo comum de banco de dados é a lista telefónica, 
que vem a ser um conjunto de informações organizadas de modo 
a possibilitar a fácil localização dc números telefónicos. 

Este banco de dados contém nomes, endereços c telefones 
de indivíduos, empresas ou instituições. Os endereços e telefones 
têm pequeno valor por si mesmos, a menos que estejam RELA- 
CIONADOS a um nome. 

Quando paramos para pensar a respeito, ficamos realmente 
surpresos com o número de banco de dados que nos são familiares. 

AJguns dos mais comuns são: um dicionário, um livro de 
receitas, um catálogo de uma loja, um relatório de estoques, de 
contas a receber, etc. 

Empresas e outras organizações têm scuspróprios sistemas 
de banco de dados: arquivos de clientes, arquivos com 
informações pessoais, inventários, registros de vendas, tabelas, 
etc. 

As escolas têm currículos dos alunos, listas de chamadas, 
arqnivos de funcionários, relatórios de frequência, etc. 

Todos esses bancos de dados possibilitam o bom fun- 
cionamento de uma empresa ou organização. 

Lidar com grandes quantidades de dados é uma necessi- 
dade constante em nossa sociedade moderna. 

Poder acessar estes dados rapidamente, e deles extrair as 
informações desejadas, c bastante importante. Contudo.o mito que 
se criou em tomo da figura do computador pode levar leigos a 
pensar que rapidez é uma característica inerente ao próprio com- 
putador. 

Isto em parte é verdade. No entanto, sc não dispusermos de 
um sistema eficiente e bem estruturado, no sentido de melhor 
manipular esta massa de dados, nossa rapidez ficará comprome- 
tida. 

Eis aí um dos motivos pelos quais o dBase II surge como 
uma arma poderosíssima no tratamento de dados. 

Antes de entrar propriamente no dBase II, vejamos um 
pouco de sua história. 

A história do dBase II leva-nos até meados da década dc 60 
e a um sistema gercnciador dc informações chamado RETRIE VE, 
que foi comercializado pela Tymshare Corporation. 

O Jct Propulsion Laboratory, em Pasadena, Califórnia, 
usou o RETRIEVE até o final da década dc 60, quando adquiriu os 
computadores UNIVAC 1 108. 



Long, um novo programador no JPL, recebeu a 
incumbência de escrever um programa que pudesse executar as 
mesmas funções que o RETRIEVE. O novo sistema gercnciador 
de arquivos, que Long desenvolveu, foi chamado de JPLDIS. Esse 
sistema continuou a evoluir nos vários anos seguintes e ainda é 
usado em muitos dos computadores do tipo UNIVAC 1 100. 

No final da década de 70, Wayne RaLliff, que trabalhava no 
JPL, sob contrato, com Martin Marictta, começou a se interessar 
por microcomputadores. Ratliff era um dos amigos de Jeb e 
começou a desenvolver um sistema que, para o usuário, era muilo 
semelhante ao JPLDIS. 

Conta a históriaque Wayne desenvolveu a versão inicial de 
seu sistema de banco de dados com o objetivo dc ganhar apostas 
de futebol! Wayne comercializou essa versão JPLDIS sob o nome 
de VULCAN. 

Embora tenha se desenvolvido rapidamente, ao ponto de 
adquirir seu próprio caráter e personalidade, o VULCAN não 
conseguiu muitas vendas. Em 1980 possuía somente sessenta 
clientes. 

Então, um empresário, George Tatc, entrou em cena, após 
ver um anúncio do VULCAN cm uma publicação para computa- 
dores. Logo lhe deu um novo nome - dBASE II - e uma nova 
companhia, a Ashton-Tale, que foi formada para comercializá-lo. 

Desde o seu lançamento, diversas versões se sucederam, 
aprimorando o produto, implementado novas funções (2.3, A, B, 
C, D, 2.4. 2.41 e 2.42). 

No Brasil, chegou oficialmente através da Datalógica, em 
1982, sendo utilizado em computadores com processadores 8080, 
8085 e Z-80, sob o sistema operacional CP/M. 

No final de 1985, foi lançada uma nova versáo, a 3.0, 
totalmente produzida no Brasil, o dBase II Plus. 

Com a chegada do dBase III e III Plus, para micros de 16 
bits, e o paulatino desuso de algumas linhas dc micros de 8 bits, o 
dBase II estava em vias de esquecimento... 

Mas, de repente, uma nova fase para os micros de 8 bits foi 
detectada e a nova arrancada se sucedeu com a chegada do padrão 
MSX ao Brasil. 

Pensar no uso meramente doméstico para um computador 
é utopia, principalmente no Brasil, onde os custos são elevados. 

Assim, o MSX foi se posicionando e, graças as suas 
qualidades, encontrou um lugar no meio profissional ou, ainda 
como alguns preferem, profissional leve. 

Desta forma, surge, novamente, vitorioso, o dBASE II, 
agora pelas mãos da Princesswarc e na sua mais nova versão, 
dirigida a este padrão: dBASE II Plus MSX - v 1 .0. 

Denomina-se 1.0, pois é a primeira versão mundial do 
dBase II para MSX. Ela foi implementada a partir da versão 3.0 dos 
Apple's, PCs e TRS's, mas funcionando sob o sistema opera- 
cional MSX-DOS e, ainda, permiLindo que se escreva em bom 
ponuguês, com todos os acentos. 
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O QUE É DBASE II? 

Chamar o dBASE II de uma linguagem de programação c 
nada mais, é ler uma visão restrita, injusta, tanto para o dBASE 
como para seu novo usuário. 

Na verdade, ele também c um instrumento para gerenciar 
banco de dados. Consistindo de uma bem elaborada linguagem de 
programação interpretada, dirigida especificamente para trabalhar 
com banco de dados com uma serie de facilidades para se criar, 
manipular ou extrair informações concernentes a este banco de 
dados. Tudo isto cuidadosamente amimado cm um único pacote 
perfeitamente acessível, tanto para programadores como para os 
menos experientes em computação. 

Há três diferentes maneiras de se encontrar e retirar 
informações de uma lista de dados. A primeira delas seria ir lendo 
os dados de uma forma sequencial, ali encontrarmos o que 
queríamos. 

Fica claro que, quanto maior for a lista de itens, mais 
demorada ficará esta busca, sendo, portanto, pouco prática. Outro 
jeito seria ordenar esies itens antes de iniciar a procura. A desvan- 
tagem está no fato de, ioda a vez que acrescentarmos novos itens, 
a ordenação terá de ser refeita. 

Muito mais eficiente é a utilização de arquivos indexados. 
Neste caso, alem do banco de dados original, guardamos um outro 
com indicadores (pointers) que apontam para os dados. 

Quando algum item éalterado, o arquivo com os "pointers" 
é corrigido , de modo que temos um ordenação efeliva sem, 
contudo, ler havido qualquer movimento no banco de dados 
original. 

A busca c obtenção de informações poderá, então, ser feita 
por diversas técnicas, algumas até bastante complexas e que, 
felizmente, não precisam ser conhecidas pelo usuário do dBASE 
II, pois já estão embutidas no pacote, podendo ser utilizadas 
através de comandos e instruções facilmente assimiláveis. 

Vale ainda ressaltar que no dBASE II estes índices não 
estão organizados de uma forma hierárquica, mas, como temos um 
banco de dados do tipo relacional, haverá necessidade de um único 
indicador para cada item, já que iodas as informações relacionadas 
àquele item estão estreitamente ligadas num só registro. Inclusive, 
é para o número deste registro, que é único para cada item no 
dBASE II, que apontam os indicadores do arquivo de índices. 

O usuário pode nào apenas gerenciar um banco de dados 
com o dBASE II mas, se ele desejar, pode criar ouiros também. 
Para isto basia recorrer ao comando CREATE e o computador 
inicia com o usuário um diálogo a respeito de como ele deseja a 
estrutura de armazenamento e o Lipo dos dados a serem guardados. 

Há apenas três tipos de dados, a saber: caracter, numérico 
e lógico. Num tempo bastante curto você verá que pode aprender 
a descrever os campos de um novo banco de dados. 

Aprendendo a utilizar as expressões adequadas, o novo 
usuário do dBASE II perceberá, facilmente, que ele pode acessar 
informações bastante específicas, sem necessidade de ter que 
descobri-las em meio a um amontoado de dados. 

Assim, se, por exemplo, um banco de dados conúver os 
resultados das vendas anuais de um companhia, você poderá 
requerer o total de vendas de um único vendedor, num período de 
tempo específico, em uma determinada região. Mais do que 
conseguir retirar estas informações rapidamente com o dBASE II, 
você perceberá que não há a menor necessidade de conhecer 
programação para obté-las, bastando para isto digiiar uma ou duas 
linhas de comandos fáceis de se aprender. 

Como podemos perceber, o dBASE II vem ao encontro das 
necessidades básicas de qualquer indústria ou organização, que é 
o serviço ou produto por ela gerado e as tarefas envolvidas na 
manipulação dos novos dados que surgem ao longo do ciclo 
operacional. 

Uma vez criada a estrutura do banco de dados, novos 



registros poderão ser acrescentados livremente, fazendo uso das 
incríveis capacidades de edição do dBASE II. 

Tirar relatórios rápidos com o dBASE II é uma tranquili- 
dade. Mais uma vez temos o próprio computador dialogando 
conosco e pedindo todas as informações necesárias para a 
confecção do relatório. É perguntado sobre o cabeçalho, sobre os 
subLotais, os títulos dos campos, ele. No caso do nosso primeiro 
exemplo, poderíamos tirar um relatório cm que aparecessem, 
explicitamenic , os totais de vendas por vendedor, por região, ou 
ainda pclosdois , conforme nosso interesse. Paraísio, basta teclar 
'REPORT' e o mais c se entender com a máquina. 

Copiar arquivos por inteiro ou cm pane é outra das facili- 
dades permitidas pelo dBASE II. A maioria dos seus comandos 
permite uma filtragem de dados, de modo a operarem sobre itens 
que satisfaçam certas características. Há, além disto, o "escope", 
escopo ou comando, que explicita sobre que registros deve ser 
lestada a condição de filtragem. 

Vamos dar um exemplo mais específico. Imagine a lista 
telefónica da cidade de São Paulo sendo um banco de dados. E 
possível copiar para outro banco de dados apenas os asinantes que 
se situam na rua Augusta, cujas iniciais são "RO" e cujos telefones 
terminem em "32". Através do escopo, poderíamos procurar as 
condições acima cm ioda a rua Augusta, ou apenas nos primeiros 
registros, ou nos últimos, como quisermos. 

Acho que já dá paraavaliar o incrível potencial de nossa lin- 
guagem. 

Até agora, falamos apenas, de características do dBASE II 
completamente independentes de qualquer conhecimento prévio 
de programação. Isto por si só já justificaria seu uso, mas vamos 
destacarouira de suas potencialidades que é a de criar procedimen- 
tos para serem utilizados por terceiros, através de programação. 

Para islo, o dBASE II dispõe de um interpretador próprio 
capaz de entender as construções fundamentais em programação, 
como o comando interativo "do while", o condicional "if-else" e 
ouiros mais refinados como o "do-casc", por exemplo. 

Deste modo, o programador pode escrever "menus", pro- 
cedimentos bastante explicativos para o usuário, ampliando o 
diálogo entre ocomputador e o homem, insistindo na correção dos 
dados digitados, fazendo observações sobre a manutenção de ar- 
quivos, enfim, tudo que um programador imaginativo pode "bo- 
lar" no senlido de rcdu/.ir ainda mais a possibilidade de erros na 
manipulação de dados. 

Desie modo, é possível fazermos programas bastante inte- 
ligentes e eficientes para resolver problemas típicos, como folha 
de pagamento, sistema dcconlabilidadc, controle financeiro, con- 
trole de estoque c outros, exclusivamente em dBASE II. Se sua 
empresa leva cerca de um mês para resolver esies problemas Ião 
simples, é porque você esiá precisando dc um dBASE II para, 
através da entrada dc dados em poucas horas, rodar, cm alguns 
minutos, os programas que lhe tirarão esta dor de cabeça. 

SOFTWARE ORIGINAL 

O usuário de um produto original, ao comprá-lo, não leva 
apenas um manual e o disco com o seu respectivo número de série. 
Leva, também, um serviço permanente e gratuito de suporte 
técnico e de atuali/.ação dc versão, ou seja, um serviço profissional 
para profissionais. 

O usuário do dBASE II, tanto da versão descriia neste 
artigo, como de qualquer outra, que não possua o seu número de 
série, deve saber que ela foi originada de um roubo e, como tal, é 
um crime, e quem a possui é um intcrccpiador. Os responsáveis 
poderão ser indiciados criminalmente e responder a processo 
judicial, por utilização indevida do produto, de acordo com a Lei 
7646 de 18/12/87 aprovada pcloCongrcssoNacionalércgulamcn- 
lada sob o número 96036 cm 12/05/88. 
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Nesta segunda lição, iremos estudar as 
arcas de definição de procedures c funções 
c a do programa principal. Serão apresen- 
tadas as primeiras noções sobre loops em 
Pascal. 

OS PROCEDIMENTOS 

São pequenas subrotinas que 
podem ser acessadas através de seu nome, 
usado como uma palavra nova no Pascal. 
Um procedimento ou procedure lem como 
características estruturais a presença de um 
nome identificador , uma eventual área de 
variáveis {variáveis locais) e a área de 
definição do procedimento em si. Este tipo 
de estrutura é equivalente a um bloco do 
tipo GOSUB do BASIC. Abaixo, é mos- 
trado um pequeno exemplo: 

PROCEDURE ZERARM ATRIZ ; 
VAR A : INTEGER ; 
BEG1N 
FOR A := OTO 100 DO 
S[ A ] := 0 ; 

END; 

A função deste procedure é fazer 
com que a matriz S , composta de 101 
elementos, seja zerada. Em Pascal é usual 
uma declaração terminar com um ponto e 
vírgula. Toda vez que digitarmos o nome 
do procedure dentro do programa principal, 
a subrotina a ele ligada será executada. 
Note que a subrotina propriamente dita é 
posta entre um BEGIN e um END; . Estes 
são os delimitadores de inicio e fim de 
bloco de operações em Pascal. 

AS FUNÇÕES 

Podem ser definidas novas 
funções (matemáticas ou não) em Pascal. 
Seu uso é muito parecido com o de proce- 
dures, porém pode ter apenas uma saída, ao 
passo que os procedures podem ler várias. 
Exemplos: 

FUNCTION TAN(X:REAL):REAL; 
BEGIN 
TAN:=SIN(X)/COS(X); 
END; 

Neste outro exemplo, definimos 
a função tangente, inexistente em Pascal. 
Feita esta definição, podemos usá-la como 
qualquer outra função residente no Pascal. 



O REAL dentro dos parên teses è 
para que o argumento seja tratado como 
real, c o seguinte para que o resultado 
obtido seja real. 

Os procedures e lunctions são 
uma das principais características de uma 
linguagem estruturada, pois se bem utili- 
zados, evitam o uso desnecessário de 
GOTOs, o que é apelação cm Pascal. 

LOOPS SIMPLES (FOR) 

O exemplo mais simples de loop 
em Pascal é o do tipo FOR. É muito seme 
lhante ao FOR do BASIC, porém aceita 
somente variáveis inteiras no contador. 
Pode ser tanto crescente quanto decres- 
cente. 

Uma característica do FOR é 
que não existe o NEXT, como em BASIC, 
sendo o controle feito através dc BEGINs c 
ENDs. Pode parecer complicado, mas na 
verdade c muito simples: 
BASIC 

FOR X=0 TO 255 
PRINTCHRS(X); 
NEXT X 
PASCAL 

FOR X:=0 TO 255 DO 
WRITE(CHR(X)); 

No caso anterior, apenas uma 
ação é executada dentro do loop. 

Caso seja necessária a execução 
dc mais de uma ação dentro do loop, estas 
deverão ser postas entre um BEGIN e um 
END; como no caso dos PROCEDURES: 
BASIC 

FOR X=0 TO 100 
PRINT X 
PRINT X A 2 
PRINT 
NEXTX 
PASCAL 

FOR X:=0TO100 DO 
BEGIN 

WRITELN(X); 

WRITELN(SQR(X)); 
END; 

Note que a função SQR(X) é 
equivalente a X"2 do BASIC. A raiz qua- 
drada em Pascal é definida por SQRT(X). 



Não confunda ! Algo MUITO 
IMPORTANTE em Pascal é em relação 
aos loops alinhados. A sintaxe para tal é 
mostrada no exemplo abaixo: 
BASIC 

FOR X=0TO 100 
PRINT X 

FOR Y=75 TO 22 STEP -1 

C=C+X-Y 

D=D+C A 2 

NEXT Y 

PRINT Y-D/C 

PRINT 

NEXTX 

PRINT "FIM" 

PASCAL 

FOR X:=0 TO 100 DO 
BEGIN 
WRITELN(X); 

FOR Y:= 75 DOWNTO 22 DO 
BEGIN 

C:=C+X-Y; 

D:=D+SQR(C); 
END; 

WRITELN(Y-D/C); 

WRITELN; 

END; 

WRITELN('FIM'); 

Creio que, com este exemplo 
final, todas as eventuais dúvidas sobre este 
tipo de loop estejam sanadas. Convém 
lembrar que o ponto e vírgula no final de 
algumas linhas indica o terminador de co- 
mandos. Examine o programa que acom- 
panha esta segunda lição do curso. Nele 
está contida toda esta lição, sendo sua 
análise um ótimo exercício. 

Os comandos de impressão no 
vídeo sao WRITE e WRITELN. 
equivalentes ao PRINT; e PRINT, respec- 
tivamente. O GOTOX Y(a,b) é análogo ao 
LOCATE a,b do BASIC, e o CLRSCR ao 
CLS. 

Chegamos ao fina! da segunda 
lição, e, em caso de alguma eventual 
dúvida, nao hesitem em escrever-nos. Afi- 
nal, nós estamos aqui para isso! 

Na próxima liçãoserão apresen- 
tados os loops dos tipos WHILE e RE- 
PEAT, muito poderosos por sinal. 
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program curso_2a ; 



desenhando uma molr 



le defiiiição de variávas] 



ocedure linha _ch eia . 



{idenlifica^díi dit pn- ':.],]n 
M. ii pr<icedure] 

i define o loop} 



ira 1 lo 21 do (define o loop pnneipal} 
begin {inicializa o loop principal) 

wrileíc); [imprimcC| 

for b := 2 to 39 do f loop secundário para ] 



c -chr(255); 



pnndpal) 
(inicializao bloco pnneipal ) 

( define a variável C como o 
[limpai leia] 



write('CURSO DE PASCAL'); 
em 14.10] 
golony) 17.12). 
■mic(' LIÇÃO li 1 ); 
go.o*y,l.l): 
dclaví6000): 



(aguarda alguns segundos] 



(finaliza o bloco principal] 



program equaçãodosegundograu ; 



{declaração das vsnávc 



wmclnl Ra^ 1 - ■.(Wa))**. 1 -.-«.ní- 
diicr):5;5,' i'): 

wr,teln('Raiz2-\(-b/(2*.)):5:5, i *',.q n (- 



(calculo daa coordcnadai do venice da parábola) 



writcln ('Equação do 2 a grau'): 
writeln( 'Curso de Pascal - II'); 
wnielnCReviiu CPU'); 



venicc.x:=-b/(2-a); 

vertice_y := -discr/(4'a) ; 

wriiclnf' Vértice da parábola;'); 

mileln( '(■ .vértice :5 : 5. '. ' .venice _y :5 :5 ,' )'); 



,10); 



function delia (i.b.c:real):real; 
deTu^jqrW^-.-c; 



raizj ;-(-b-sqn(diMTil/(2*jl . 
r*z_2 > |-b*sqn((íiscr)y(2'.) ; 
whtíln('Raii I = , jaiz_l;5:5) ; 
«nlílnfRiiz 2 - 1 jaii .2:5:5) ; 




(calculo di 



procedure raiícs rcaisjguais; 

«iz_l :- (-b*iqn<<.is«W(2'a) ; 
wnicln('Raiz 1 - Raiz 2 - 1 jiiz.l :5:5); 



ure raues complens. 
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ASTROLOGIA NO MSX 

LUIS TARCÍSIO DE CARVALHO JR 

EDITORA ALEPH - 1988 

Como não podia deixar de acomecer.o MSX 
entrou na área mística! De fato, uma das grandes dificuldades dos 
astrólogos sempre foi um exaustivo trabalho de cálculos e consul- 
tas a tabelas de efeméides planetárias para levantamento do Mapa 
Astral. 

Com a incrível capacidade e precisão de 
cálulos do MSX, esla tarefa pode ser relegada ao micro, ficando ao 
astrólogo a tarefa mais nobre da interpretação. Neste lançamento 
da Editora Aleph, o leitor passa a dispor de uma espécie de "kit" 
de Astrologia, dividido da seguinte forma: 

Na parte I è fornecida uma listagem em 
Basic do programa M AP ASTRAL, que se encarrega de fazer todos 
os cálculos astronómicos necessários à interpretação. Para os 
leitores "preguiçosos", a Aleph comercializa uma versão do livro 
associada a um disquete de 5 1/4", com todos os programas nele 
contidos. 

Ao rodar o programa são solicitadas as 
informaçôc pessoais do "consulente": nome, daiae hora do nasci- 
mento. O programa pergunta se nesta data estava em vigor o 
horário de verão, sendo que no apêndice II do livro está uma tabela 
de todos os horários de verão que já vigoraram no Brasil, com 
espaço para complementações futuras. 

A seguir devem ser colocadas as coordena- 
das geográficas do local do nascimento. No apêndice I são for- 
necidas as das principais cidades brasileiras. Sc a sua cidade não 
estiver relacionada, uma boa fonte de consulta é o índice do Atlas 
da Encylopaedia Britannica. 

Após a entrada destes dados (figura 1), o 
micro efetua todos os cálculos e desenhao Mapa Astral na tela. No 
apndice III é fornecido um programa que permite tirar uma cópia 
desta tela (e das seguintes) na impressora, para documentação 
posterior. 
FIGURA I 



*«* MAPA ASTRAL *** 
Nome <máx=10 letras): 



(.após 15,10- 1582 1 



Ml ? 6 
Mes ? 3 
Ano 1 1967 



Hora de nascimento: Hora ? 15 

Minutos ? 30 

Horário de Verão CS/N) ? n 

Fuso Horário ? 3 

Coordenadas do local de nascimento 
Latitude^ 

mnuxos 

N OU S : „ 

'"f_is ? 6 38 



Apertando-se a tecla Fl, o programa lista a 
posição do Sol, Lua c Planetas e, com F2, a posição das casas 
(figura 2). 
FIGURA 2 



MAPA ASTRAL 




Na tela seguinte é fornecida a tabela dos 
aspectos planetários (figura 3) e, nas duas telas seguintes (ftgura4 
c 5), as posições dos planetas c casas é listada com toda precisão. 

FIGURA 3 

ASPECTOS PLANETÁRIOS 



* = Sext i 1 

A - T r í a o n o 

<? - Oposioão 

- Conjunção 

□ = Q u a d r a t u r a 



planeta 



FIGURA 4 «* MAPA ASTRAL Ht 



POSIÇÕES MIS PLANETAS 



Dl rtyjETTó'- 
r LHNL 1 H-., 


LONGITUfcE 


S I GNO 


CASA 


c . . 


15 


30:23 


Peixes 


VIII 


1 


26 


22 -18 


Capri comi o 


VII 


Mer sá ÍO 


10 


31 IS 




vm 


VènUS 


13 


21 :17 


Àri^" 


IX 


Marte 




10:45 


Escorpião 


in 


Júpiter 


24 


46: 3 


Câncer 


i 

VIII 


Saturno 


9 


21 :21 


Aries 


Urano 


22 


41: 2 


Virgem 


II 


Hetu.no 


24 


20: 1 


Escorpião 


IV 


Plutão 


19 


26 : 43 


Virgem 


li 



FIGURA 5 :nt NAPA ASTRAL #** 



POSIÇSES IJAS CASAS 

CASA CÚSPIDE L0NBITUI1E SI6N0 



I 


Ascendente 


22 


57: 


•li 


CAnotr 


II 




29 






Leão 


III 




5 


25 


36 


Libra 


IV 


I.C. 


7 


8 


36 


Escorpião 


V 




38 


9 


Sagitário 


WI 




27 


37 


":2 


Sagitário 


UII 


Descendente 


22 


57 


41 


Capricórnio 


VIII 




29 


3 




Actuar io 


IX 




5 


25 


36 


Aries 


X 


Meio do Céu 


7 


0 


36 


Touro 


XI 




3 


38 


9 


Gémeos 


XII 






37 


32 


Gémeos 



A seguir vem a parle mais interessanie do 
livro. Em função do signo de cada planeta, do ascendente, das casas 
dos planeias e dos aspectos planetários, o programa lista uma série 
de númcros,corrcspondcndo cada um a um verbete fornecido na 
parte III do livro (interpretação). Desta maneira, mesmo o leigo em 
astrologia pode fazer uma primeira interpretação do mapa. Obvia- 
mente, ela será superficial, pois 6 necessário um astrólogo experi- 
ente para solucionar eventuais informações conflitantes entre os 
aspectos (figura 6). 

Traia-sc, sem dúvida, de uma obra original e 
inovadora que, além de mostrar uma faceta insuspeitada do MSX, 
permite ampliar seu campo dc uso, especialmente entre o público 
feminino que olha o micro com uma certa indiferença, ou ate 
hostil idade. 

FIGURA 6 *** MAPA ASTRAL *»* 

12- Signo Solar: Peixes 
16- Recendente ern Câncer 

CombinacSo: 12 - 16 
SIGNO I>E CAI>H PLANETA: 

"■■■A- Lua em Capf ■icórnio 

4S- Mercúrio em Peixes 

49- Vénus em Aries 

6o- Marte em Escorpião 

76- Júpiter em Câncer 

85- Saturno em Aries 
102- Urano em Virgem 
116- Netuno em Escorpião 
126- Plutão em Virgem 



146- Sol na oasa VIII 
151- Lua na casa VII 
164- Mercúrio na casa VIII 
177- Vénus na casa IX 
183- Marte na casa III 
193- .Júpiter na casa I 
212- Saturno na casa VIII 
218- Urano na casa II 
232- Netuno na casa IV 
242- Plutão na casa II 
ASPECTOS PLANETÁRIOS: 

256- Sol/Mercurio: Conjunção 

279- Sol, Plutão: Oposição 

294- Lua/Marte: Quadratura 

297- Lua/ Júpiter: Oposição 

299- Lua/Saturno: Sèxtil 

302- Lua Air ano: Trigono 

305- Lua/Netuno: Sèxtil 

30S- Lua/Plutão: Trísjono 

312- Lua, Ascendente : Oposição 

341- Mercúrio/tleio do Céu: Sèxtil 

367- Marte/Meio cio Céu: Oposição 

3S9- Júpiter/Saturno: Trigono 

3^2- Júpiter /Urano: Sèxtil 

395- Júpiter /Netuno: Trigono 

39S- Júpiter/ Plutão: Sèxtil 

400- Júpiter Ascendente : Conjunção 

410- Saturno, Netuno: Trigono 

422- Urano/Netuno : Sèxtil 

424- Urano/Plutão: Conjunção 

425- Urano/ Ascendente Sèxtil 
434- Netuno./Plutâo: Sèxtil 
437- Netuno/As.-endente ; Trigono 
443- Plutão/Ascendente: Sèxtil 

Cuia do Programador - Volume 1 
Guia Técnico de Referência - Volume 2 
Editora MeGraw-Hill 

A McGraw-Hill acaba de fazer um 
lançamento de dois livros que, ao nosso ver, em muito irão ajudar 
os programadores, iniciantes ou não, a usufruir ao máximo dos re- 
cursos dos computadores MSX. 

A òbra foi dividida cm dois volumes, tendo 
a primeira recebido o titulo de "Programação Básico e Avançada", 
com 297 páginas e a segunda, com 346 páginas, recebeu o título de 
"Guia Técnico de Referência". 

Tendo sido traduzida do livro The Complete 
MSX - Programmcrs Guide, que vem a ser uma das publicações 
mais conceituadas na Europa sobre o MSX, tendo sido traduzida, 
num irabalho muito bem feito, utilizando uma linguagem bastante 
acessível a todos os leitores. 

Um dos fatores que tomam os livros de fácil 
utilização por parte dos leitores é a forma pela qual os comandos 
são apresentados, tendo sido agrupados por função. Assim, no 
capítulo 1 2 por exemplo, dedicado à leitura de dados cm matrizes, 
encontramos as instruções DIM, READ, DATA e RESTORE c 
uma série de programas onde é exemplificado os seus usos. 

Seguindo essa linha, temos 61 capítulos, que 
abragem desde a organização do teclado (uso de RGRA. LGRA, 
ETC), alé ao Sistema operacional e BIOS. 

O índice Analítico é outro ponto forte do 
livro e que permite uma consulta rápida e precisa. 

Se quisermos, por exemplo, informações 
sobre o comando RUN, ao consultar o índice Analítico, veri- 
ficamos que ele foi mencionado nas páginas 15, 32 e 509. 
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Como já deve ser do conheci- 
mento de V.Sas., a imagem gerada pelos 
computadores da linha MSX, particu- 
larmente no Hotbit, não é de boa qualidade. 
A fim de melhorar a qualidade da imagem 
obtida no meu Hotbil, solicito-lhes a 
seguinte informação: 

Como obter uma saída RGB 
neste micro e como substituir o circuito 
modulador de RF por um de melhor quali- 
dade? Se possível, gostaria de receber o 
desenho do esquema desta modificação. 

Adquiri um monitor da marca 
Spectrum, do úpo usado em Apple e, 
quando o ligei nasaída de vídeo, não obtive 
nenhuma imagem. Depois de analisar e 
medir com osciloscópio o nível de sinal de 
vídeo, verifiquei que o mesmo era muito 
baixo. 

Resolvi este problema mon- 
tando um amplificador de vídeo, con- 
seguindo, então uma imagem muito boa. 
Porém, quando rodo certos programas, que 
usam diversas cores, a imagem fica distor- 
cida, como se perdesse o sincronismo. 
Ainda estou pesquisando como resolver 
este problema 

Certo de que poderei contar com 
as informações solicitadas no menor prazo 
possível, subscrevo-mo. 

Pedro Américo Sampaio Guimarães 
Caixa Postal 98411 
28500 - Cantagalo - RJ 



No Hotbit existe uma pequena 
chave localizada peno da placa de 
identificação que serve para solicionar o 
tipo de monitor que se está utilizando. 

Acreditamos que, ao efetuar a 
mudança da posição desta chave, você terá 
uma melhora sensível na qualidade de 
imagem do seu monitor. 

Para podermos fornecer- lhe 
todos os dados necessários à solução do seu 
problema, encaminhamos a sua 
correspondência à Sharp, que, em tempo 
hábil, irá responder-lhe. 



Encontrei em uma banca 
de jornal de minha cidade um exemplar da 
revista "CPU", editada pelos senhores e, 
como gostei muito da maneira como os 
assuntos foram tratados e percebendo ainda 
a possibilidade deme tomar assinante, sol- 
icito, se possível, que me enviem maiores 
esclarecimentos sobre o preço atual da 
assinatura e forma de pagamento. 

A revista que encontrei é a de 
número 3 e gostaria que, junto com os es- 
clarecimentos solicitados, fossem for- 
necidas instruções de como eu faria para 
adquirir também as de número 1 e 2, ou 
demais atrasadas, a fim de que eu não 
ficasse com matérias truncadas. 

Possuo um micro Expcrt 1 . 1 , já 
convertido pelo Ademir em 2.0, drive com 
interface DDX e impressora Lady-80, 
equipamento este que forneci ao meu filho 
Cesar de 12 anos para iniciação na área de 
informática, sendo que as matérias que 
abordam na revista de muito ajudam. 



Os usuários de computadores pessoais 
são, por força do destino, uns pesquisa- 
dores e estão sem pre à proc ura de fontes de 
informação. E com este espírito que 
sempre estou em bancas de jornais, ou 
livrarias, c, numa dessas investidas, en- 
contrei a revista CPU que, até agora, está 
de parabéns pelo excelente nível dos arti- 
gos publicados e programas apresentados. 

A idéia de apresentarem pro- 
gramas escritos em outras linguagens me 
agradou bastante pois é difícil encontrar- 
mos este tipo de serviço em outras revistas 
da área. 

Espero que conúnuem sempre 
assim, dando uma força aos programa- 
dores. 

Antonio Pedro Rodrigues Silva 
Caixa Postal 38080 
22452 - Rio de Janeiro - RJ 



Otávio Alves Pereira 

Rua Dr. Roque Barbosa Lima 108 

Parque São Lucas 

03264 - São Paulo ■ SP 



As informações necessárias 
para efetuar a assinatura da revista podem 
ser encontradas no cupom próprio com esta 
finalidade, sendo o preço válido até a saída 
do novo número. 

Com relação aos número 1 e2da 
revista, informamos que o número 2 está 
esgotado, devendo ser relançado no início 
do próximo ano. O número 1 foi relançado 
por nós este mês e em São Paulo poderá ser 
encontrado na Litec, ou solicitado direta- 
mente a nós, ao cusio de CzS 660,00. 



Sou programador e encontro dificuldades 
em entrar em contato com outros pro- 
gramadores para troca de idéias e pro- 
gramas em qualquer linguagem. 

Gostaria de corresponder-me 
com programadores de qualquer lin- 
guagem, a fim de juntos possamos iniciar 
um clube de programadores e que, assim, 
possamos nos auxiliar em problemas do 
"dia a dia". 

Sandro Daniel Minetto de Carvalho 
Caixa Postal 4 1 1 7290 - Macatuba - SP 



Quero parabenizá-los pela ex- 
ecelente qualidade da revista. 

A meu ver, deveriam aumentara 
parte relativa aos jogos, incrementando a 
seção de dicas de mil vidas c High Scores. 

Achei muito bom e oportuno o 
artigo do MSX 2 por transformação. Espero 
que logo seja lançado também no Brasil. 
Também, com a situação económica atual 
do país, não me admiro que os fabricates 
ligados à área do MSX não estejam pen- 
sando em não fazer lançamentos no mom- 
ento. 

Se possível, gostaria de ver pub- 
licados na revista vários mapas de jogos que 
nos auxiliem a achar a saída. 

Ana Maria Santiago 
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★ A FORÇA DO MSX* \Z ' 




EXPANSOR PARA 4 SLOTS 

Adote um espansw e multiplique 
a capacidade do seu 
com ele você pode conectar: 
INTERFACE - DRIVE - PLACA 
DE 30 COLUNAS - EXPANSÕES 
DE MEMÓRIA - MODEMS - 
SOFTWARE - RESIDENTES 
E ATÉ JOGOS 
Apenas 22 QJUS 



MODEM COMPLETO 

Perini» acosso ao REN PAC - 
CIRANDÃO- VÍDEO TEXTO 
E ARUANDA 

Além de comunicação micro 

Só 30 OTN^S 

DRIVE DDX-51/4 
FACE DUPLA 

360 K FORMATADOS 
O único com garantia mesmo. 
Acompanha - INTERFACE - 
MANUAL E DISCO MESTRE 
Apenas 60 OTN'S 

PLACA PARA 80 COLUNAS 

Comelavoçé sentirá que é 
bem mais fácil programar. 
Explore ao máximo seu MSX. 
Apenas 22 OTN"S 



PAPAI NOEL EXISTE MESMO 

6 jogos por apenas Cz$ 4.000 (Disco ou Fita incluído) 




PEDIDO MÍNIMO: 2.000,00 
PEÇA SUPER LISTÃO - GRÁTIS 



THE TRAIN GAME 
SPRINTER 



Descubra os macetes deste irem 



EQUIPE SILVA SOFT 
RODRIGO 
ZÉ MÁRIO 
ROBERTO PINHÃO 



Operação central das portas 

Acima dos oito botões de seleção de velocidade, você en- 
contrará dois botões para operação das portas. 

Antes de partir, você deverá fechar as portas, pressionando 
a tecla 'D'. Soará uma campainha para indicar que você pode 
partir.Quando as portas estão fechadas, acende-se uma luz verde 
no painel de controle. 

Para abrir as portas, pressione a tecla 'O'. 
Painel indicador 




A ° ° oo a oAo o o o o o o 
9 ID II 



1 - 


Controles de luz - aquecimento 


2- 


Voltímetro (1800 V) 


3- 


Amperímetro (300 - 500 A) 


4- 


Velocímetro 


5- 


Pressão no reservatório de ar 


6- 


Pressão nos cilindros de freio 


7- 


Chaves de inclinação 


8- 


Chaves de alta voltagem 


9- 


Luzes indicadoras (portas) 


10 


Botões do CAT (Controle Automático do Trem) 


11 


Luzes indicadoras dos freios 



Painel de conlrole 



Este jogo mostra a cabine de comando do trem, bem como 
a vista frontal para a via férrea. Depende de você viajar o máximo 
de milhas com este trem. 

O registrador de milhas não funcionará caso você escolha 
uma velocidade menor que a permitida. 

Você pode começar o jogo com a velocidade de 120 mph. 

0 Sprinter tem certas particularidades que o distinguem de 
todos os outros trens, sendo as mais importantes as seguintes: 

1 - Acionamcnto e parada com uma única alavanca; 

2- Controle automático de velocidade por meio de botões; 

3- Operação de abertura e fechamento das portas pelo maquinista. 

Alavanca de acionamento e parada 

Você pode mover esta alavanca com as teclas do cursor 
(para a frente e para trás), em quatro posições: 

1 - Alavanca toda para a frente: se foi previamente 
escolhida a velocidade, o trem começa a mover-se. Os freios estão 
livres e o indicador de freioestá na oposição "off '. O amperímetro 
mostra uma corrente elevada passando pelos motores. Se a 
alavanca está nesta posição eotrem está em movimento, você pode 
escolher outra velocidade. 

2 - Posição neutra: os freios estão livres e os motores 
parados. Quando o trem está em movimento a velocidade cai 
lentamente. Nesla posição você pode escolher uma velocidade. 

3 - Freios: os motores estão parados. O ar aciona o cilindro 
do freio e o manómetro indicará alta pressão. 

4 - Alavanca toda para trás: como na posição 3, mas a 
pressão nos freios é maior. 

Seletores de velocidade 

Próximo do centro do painel de conlrole, você verá oito 
botões para controle da velocidade. Estão disponíveis as seguintes 
velocidades: 



4 


40 mph 


6 


60 mph 


7 


70 mph 


8 


80 mph 


9 


90 mph 


0 


100 mph 


1 


1 10 mph 


2 


120 mph 



Para selecionar a velocidade, a alavanca de acionamento e 
parada não devem estar na posição de parada. 




1 - Chaves de barra 

2 - Botões seletores de velocidade 

3 - Alavanca de acionamento e parada 

4 - Pino de parafuso 

5 - Chave de ignição 

6 - Portas - limpadores de pára-brisa 



42 CPU 



Controle Automático do Trem 

O equipamento de controle do trem é interligado aos sinais 
localizados ao lado da via férrea, os quais enviam um código ao 
trem, que, traduzido, informa o limite de velocidade para aquela 
parte do trajeto. 

Esta informação é transmitida por sinais sonoros e lumino- 
sos. 



verde • máximo 120 mph 
verde + 8 - máximo 80 mph 
verde + 6 - máximo 60 mph 
amarelo + 8 - reduzir para 80 mph 
amarelo + 6 - reduzir para 60 mph 
amarelo - reduzir para 40 mph 



Quando você passa um sinal que permite outra velocidade, 
soa uma campainha dentro da cabine. Se a sua velocidade é muito 
alta, soa outra campainha e você deverá acionar os freios imedia- 
tamente, caso contrário, o CAT parará o trem. 

Quando a velocidade for reduzida suficientemente, a 



campainha tocará de novo. isto significa que você pode parar de 
frear, escolhendo novamente uma velocidade. 

OC AT n3o reagirá a sinais vermelhos, prevenindo, apenas, 
a proximidade de um deles, por meio de um sinal amarelo - 4. 

Segurança Extra 

Quando a alavanca de acionamenio esli na posição neutra 
e o trem atinge uma velocidade abaixo de 40 mph, soa uma cigarra. 
Se o maquinista nao pressionar o botão de saída (tecla 'Q'), o irem 
parará. 

As estações 

O Sprinter é um trem paradouro e, assim sendo, deve parar 
em todas as estações. 

Você deve parar o trem o mais próximo possível do fim da 
plataforma, perto do sinal de parada. 

Joystick 

Frente/Trás • Alarme de acionamento/parada 
Esquerda/Direita - Escolha de velocidade 




SILVASOFT 

MSX PETRÓPOLIS MSX 

Aqui você encontra: 

Educativos Aplicativos 

—Abelha Sábia —Controle de Estoque 

—Mago Voador —Controle Bancário 

—Trigonometria —MSX Tools 

—Corpo Humano —Editores de Gráfico/Som/Voz 




E os melhores jogos: 

Madmix— Black Beard— World Games— Taipar— Laba dia dei Creimert— Turbo Girl— 
Match Day II— Super Star Soccer— Al eh op— Indiana Jones 

Para adquirir estes programas basta escrever uma carta com nome 
e endereço legíveis pedindo os programas desejados e um cheque 
nominal e cruzado a Silvasoft Ltda. ou vale postal. Peça nosso listão 
grátis, ou venha ao nosso Show Room: 

Rua do Imperador 51 8/302 CP 91 .321 CEP 25600. 

Peça nosso Jornal 
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O MUNDO PERDIDO 
DA III DIMENSÃO 



GUILHERME A. L. DA SILVA 



Numa sombria e assustadora noite de sexta-feira, 13 
de agosto dc 2004 — ano bissexto, para o seu azar — houve um 
acidente geodimcnsional, devido ao fortalecimento das forças 
malignas que se intensificam neste dia maldito e você foi "arran- 
cado" da paz do seu lar para ser jogado num mundo de morte e cru- 
eldade. 

Mas ainda há uma chance. Reprogramar o único tele- 
ponador dimensional existente no universo que se encontra, por 
coincidência, em algum lugar nessa dimensão inóspita. Repro- 
grame-o, pois esta é aiínica chancepara que você possa retornarão 
nosso querido planeta. 

DICAS 

O jogo oferece as seguintes funções de ajuda: 

Verbo ajudar: fornece todos os verbos existentes no jogo c, 

dependendo da situação, dá dicas de como proceder. Não há dicas 

falsas. 

Arquivos: escrevendo esta palavra, o computador mostra na tela 
um menu contendo opções para a gravação e leitura de arquivos. 



O mundo perdido da III dimensão é habitado por 
MUTANTES DO APOCALIPSE: 

Eles aparecem para saquear ou, até, sanguinariamente, matar. 
São perigosíssimos. 

FANÁTICOS RELIGIOSOS: 

Oferecem perigos maiores que os mutantes.Todo cui- 
dado com eles é pouco. 

O jogo apresenta um nível de dificuldade razoável, que 
poderá ser alterado. Paraque o jogo Fique ainda mais difícil, delete 
do programa as linhas de 331 a 337. 

Casoqueira dificultar um pouco mais, mude o limite de 
objetos a serem carregados por vez pelo aventureiro. Para isso, 
apague os comandos REM das linhas 843, 844 e 845, 

O limite de objetos édado pela variável NJ da linha 845 
e o número de objetos é fornecido pela variável DO. 



MSX PROFISSIONAL É NO MISC 

OMISC lança o PACOTÃO GLOHAL PROFISSIONAL que consiste de: seleção e venda de equipamentos 
adequados, softs especificamente desenvolvido para cada profissão, com as adaptações necessárias pana 
cada caso particular, treinamento e assistência técnica. Estes são os Softs j.í disponíveis: ADVOCACIA 
CONTABILIDADE. ENGENHARIA CIVIL. Conheça as ativídades do MISC: 1 H TRANSFORMAÇÃO PARA VER- 
SÃO 2.0: agora você pode transformar seu Hot-Bit ou Expe n na segunda geração de MSX. rigorosamente dos 
padrões Internacionais do MSX 2.0. 2 ' CARTUCHO DE 256 Kb. PARA JOGOS MEGAROM: com ele e usando 
seu drive você tem acesso aos mais avançados jogos existentes.com mais açáo. maior resolução e melhor música. 3:' SOFT- 
HOUSE: diariamente o MISC está ampliando seus (itulos. Extensa coleção de jogos c aplicai ivos para 2.0 jogos megarom. 
4f SERVIÇOS: orientação na utilização e seleçáo de equipamentos e softs. 5' COMPRA E VENDA de Expert e Hot-Bit. 
6? PRODUTOS: drives, impressoras, modems, interface para Praxis 20. capas para micros, drives e impressoras, livros espe- 
cializados etc. 

ASSOCD5-SE AO MISC. Usufrua das vantagens que proporcionamos aos nossos associados na aquisição de sofis. 
produtos e serviços. O Jornal do MISC é uma exclusividade dos nossos associados. Pague uma taxa única de CzS 4 000,00 
(não temos mensalidades) e receba grátis uma coleção de jogos em fila ou disco. Enviar cheque nominal à Ernbass Editora 
Ltda. ou depositar no BRADESCO na agencia 0 108. conta n? 14 1 . 1 84-5. MSX INTERNATIONAL SERVICE CLUB - A solução 
definitiva para o usuário MSX. 

Peca o catálogo detalhado sobre o MISC 

Rua Xavier de Toledo, 210 - Cj. 23 - CEP 01048 - São Paulo - SP - Fone: (011) 34-8391 e 36-3226. 
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ii mi — aram 
21 «a — o hundo perdido 

31 RHI PARA fl LItWA «SI 

48 REH — - 6UIU£HE A.L. DA SILVA 
58 RO! — 22/14/83 

ti reh — smmeís 

tl 031! IBM 

t2 KEY DN!D£RJSfi=AH3E 

43 STGP0N:GN STDP 60SUB1848 

44 POKEHf CflS.l 

71 (Hl, 'PESAR '!«EY2,'DEIIAR ■ilítVL 
irflAR'H>«(13):IÍEV4,'AJlIM'*afaí|13!: 
IIY3, 'DESISTIR' +CHMU3I IKEY7, ■ARQUIVOS 
■*()Wi3l:«EVS,'PUIAR ':rB9,'J06AR '! 
KEV1I, 'DEFOKR-SE 'iIEV4,'VESTIR ■ 
Bi COLOR 7,l:aS!LOCATEi,3:PRM'l D HU 
«00 PERDIDO DA TERCEIRA DIIENSAO 1'iLOC 
ATE 7,1B;INP0T' CASSETE OU DISQUETE ' 
;B:LOCATE 7,lÍ!PfiIHT" Ouer instruções 
(S/«) ?'!SPC(lt]:LCC«TEi,17!PRI«TDESE« 
VOLVIDO PO» SUILHERBE A.L.DA SILVA' 
9BA|.|NiI<l:]F AI="THEN9I 
IH IF A1='S' THER SOSUB 2(2i 
UB 'PREPARAR «ATRIIES DAS RESPOSTAS 
121 DI» Rl!24l,«(24l 
131 REST0RE14B:FOR «■1T024 ! R£*DRI(K),R( 
«]:«EIT 

141 DATA JO£M,t,LIlP«,S, LIS», t, PUIS» 
,7,DESISTI«,8,LISTAR,!,l£FERiíR-SE,lB,A 
JUJ)AR,ll,REPR0SRAntt,12,VESTIR,13,VERIF 
ICAR,14,ASSUSTAR,1S 

IS DATA PE6Ay,KIIAfi,3,IWI»,lA,IN8 
ffiIR,17,JAttlAi8,AR0UIVGS,19,L!vl!AR-SE 
,28,BEBER,21 

141 DATA NORTE, 1, SUL, 1,LESTE,1,[ÍSTE,1 
I7B RO! PREPARA «ATRIIES DE OBJETOS 
1» READ NE 

198 DI« OD{NB!,0»l«n,St(Nll 

2«F01I.1TOHI:«£ADOB{I],OBI(II,S1( 

I]!«EITI 

211 DATA 13,7,ELIIlR,Ha u> vidro rol ui 
elixir no chao 

228 DATA !,CORDA,Te« nu curda 5 palega 
das perto de vote 

231 DATA 3,BATERIA,Tei uu bateria de 1 
7 volts no safa 

74B DATA 15,R0LPA ANTI-RADIÍCAO,Ma uu 
roupa anti-radiacao no chão 
258 DATA 2B,C0hTAHK GEISER.Ha ui conta 
dor geiger perto de você 
24B DATA 14,CflhTUTAD0R «SI - DESLISADO, 
Tee m Super coiputador nos seus pes 
27B DATA ll.RUBI.Ui RUBI enoree esta no 
cnao 

2SB DATA 8,URANI0,Ha uu ugnifica jui 
da de urânio 23S 

291 DATA I.ANEL Kl hOO,Nos seus pes e 
sta o lendário anel do eedu cravejado d 

e brilhantes 

311 DATA B.ESPADA DE UJRO.Uu linda esp 
ada de ouro que foi deixada pelos segui 

dores!!! 

311 DATA 19,T[lEF«TAMR,Tei ui telepor 



tador diieniional no cantoda tala 

32B DATA l,«UTAHTES,lk grupa de «itante 

5 aparece mju luucavereelha 

331 DATA B,DISH£TE,Ha ui disquete de c 

otputador no poiso 

331 REST0Te35:0I».l(24):FCRI=lT024:flEA 
XKIlsHElT 

335 DATA DESFILADEIRO DO NUNCA,, CASA DO 
ESPANTO,,, SALA DE PQIII.FLORESTA PETRI 
FICADA, SAARA DIMENSIONAL 
334 DATA EN™iIU«DA,BRUTA DO TERROR, T 
OfLO DA GRUTA, MONTANHAS ROCHOSAS,,, USi 
«A NUCLEAR 

337 DATA SAÍDA LESTE.PONTE DE CORDA,CAC 
MEIRA DE ACIDO.SALA DO TT£1^P0RTAD0R,U> 
SORATORIO.REATm DA USINA, , ,10X0 DE PE 
ORA 

341 ' II POSIÇÃO INICIAL II 
3» L=l 

341 1 ACHAR LOCAI. 

371 IF FM01 AND N>7 THEN SOTO 2421 
371 CLSiPRINT O eundo perdido da 3 
a diiensao ' 
388 COLOR 15,4 

391 m««lMMIM(-tM)H>iIF FNO 
1 ANO «T>!! AKD W THEH r»H0S(I2K 

391 IF («01 AND IU=2 THER GOTO 2421 

392 IF fflOl A» «0=1 THEN «0=2 

304 IF LU1 THEN ON L GOSUB1S1B,,1B40,, 
,1681,1918,1948,1976,2888:6010 421 
411 IF L<21 THEN ON L-ll 60SUB2B48,2BBB 
,,,2121,2151,2181,2228,2248,2298:8010 4 
21 

418 IF L<24 THEN ON L-2B GOSUB2328, , ,23 
41 

428 CaOCA CADA 081ET0 EH LUSAR 

438 FOR MTONBlIF OBIIK THEN PRINT S 

llll 

448 NEIT 

458 ' APONTAR DIRECOES 
448 

471 P8INT'Pode leouir' 
475 PRINT 

481 IP «>B TUS PRINT TAB15];'H0RTEi ■( 
LtlL-41 

4!8 1FS>eTHENFRI«TTA8(5li'SUL : '; 
LflLHil 

m IF E>8 TFEN PRINT TAB(5);'LESTE: 'i 
LlILtll 

511 IF N>1 THEN PRINT TAB(51i'DESTE: *i 
LIIL-I] 

521 1 INSTRUÇÕES 

531 PRINTlINPUCE agora "|II 

541 BBSUB 1298 

558 ' SELECIONA OPCAO 

548 IF W THEN BOTO 588 

571 ON I GOTO 418,771,868,758,1858,1118 

,1228,im,7B8,27ll,1388,1481,15t(,i42B 

,1478,1731,2511,37B,3I11,2!»1,3588 

588 PRINT:PfiINT'Eu nao sei com ";V»:SO 

TO 438 

571 ' ROTINA DE NTMHEKTO 

488 IF lt"0' AND Bí THEN W.-HSOT0 3 



71 

til IF It='N' AND N>8 THEN L=L-t:80TO 3 
71 

448 IF !t=V AND E>8 THEN L=Ltl:SOT0 3 
78 

458 IF I*='S" AND S>8 THEN L=L+4:B0T0 3 
78 

478 ' SE NAO HOUVER LOCAL POSSÍVEL HESS 
A DIREÇÃO 

481 PRINTlPRINT-KSCllFf - Vote nao pnd 
e seguir par estecMÍnho.':S}TO 39B 
490 LISTAR 

788 PRINTVOCE TO! :';:IH=8 
718 F0R6=1T0HB 

721 IF OB(S)=-I THEN PflIHTTAB(lB);0B1(G 

HDWHH 

738 HEIT 

741 K IM THEN PRINT "NADA" 

751 SOTO 391 

741 ' |»gar 

778 FOR G=l TO HJ 

781 IF !NSmO»(BI,NI>l THEN GOTO 818 
798 *11 

888 rRINTNi;''?'' 'GOTO 398 

018 IF 0B[GI=-1 THEN P«INT'VOC£ JA TEU. 

■iGOTO 391 

B2B IF OBIGIOL THEN PR1NT'NA0 ESTA AOU 
i.':GOTfl 391 

838 IF 0B(S)=OBI12) CR 0BIB)=0B(11) THE 
N PRIHT'VOC£ NAO PODE PEGAR ISSO!':SCT0 
391 

841 IF 08(61=08(41 THEN PRINTVOCE TE« 

QUE VESTI-LA.':60T0 398 

0(1 IF 0B(6)=OB(2) AND CJOB THEN PRINT 

■VCCE TEI4 8UE PU1B-LA. ■ tEOTO 3« 

643 REH FORI 3 1TONS:!F UBIIl-l THEN NJ. 

«Jtl 

844 REH ICIT 

845 REH IF HJ>=5 THEN PRINTVDCE HAO PO 
DE CARREGAR TANTA aiSA!':S0T0398 
BMPRINT'0[...'!0BIB)=-1 

648 BOTO 398 
678 1 DEIIAR 
888 F0RO1T0H8 

898 IF INSTR(081IGI,Nt)=l THEN 911 

9M«EIT:PRI«T«I('?77':G0T0 391 

918 (F OB(G|0-1 THEN PRINTVDCE NAD PO 

DC LARGAR O QUE NAO T01!':6GTO 398 

928 FfiIHT'0I...'!0B(B)=L 

938 GOTO 391 

941 1 JOGAR 

951 I*INSTR('01RM',Nt]i]F !N<1 THEN P 
RINT-IlfOSSIva - 'i»i'???'!8BT0 398 
941 IF DBI2I0-1 BEN PRINTVOCE NAO TE 
H CORDA. ':GOTO 391 

971 IF L01B THEN PRINTVOCE NAO PRECIS 
A FA2ER ISS0!':8DT0 398 
988 IF CJ=1 THEN PRINT JA FOI FEIT0'i6O 
TO 391 

998 PRlNT'0l!.':CJ=l:0BI2l=L:GOTD391 
1888 ' desistir 

1118 PRIKNPRINT luer jogar novae 
ente ls/nl?' 



1828 AMNKYIiIF A*=" THEN 1828 

1838 IF AI='S" THEN RUN 

1048 KEYCN: COLOR 15,1 ,1 :aSsft=Uaíía] :EN 

D 

ibsb ' LIMPAR 

1868 !N=]NSTRfVE6ETACAG",Nl):IF IN<1 T 
HEJÍ PRINT-ISTO NU M ^iGOTO 398 
1878 IF 0B(B)=24 OR 0B(8]=-1 THEN PRINT 
'Jfl FOI FEITO ."iBOTO 398 
1868 IF L024 THEN PRINT "IMPOSSÍVEL '!? 
?":6OT0 398 

1881 IF 0B(4)O-Í THEN PRINPVOCE FDI C 
QNTAHINADO PELA ALTÍSSIMA RADIAÇÃO 
DC LEflNJO 23B.*;N=8:E=fl:S=a 3 K=B:G0T0 3? 

e 

1898 LV=1:GB(8)=24:80TO 398 
1188 ' LIGAR 
1118 FOR G=1TDNB 

1128 IF W=LEFT*(Oi[G),L£N(l«)) THEN 1 
158 

1138 NEIT 

1148 PRINT"????" :GOTO 398 

11S IF G06 AND 6011 THEN PftINT"NAO D 

A'.":GOTO 398 

1168 IF GB(6)<>-1 THEN PRINT "FALTA COT 
u7AD0R.":G0TD 398 

1165 IF 8=4 AND 0B(3)O-l THEN PRINT'FA 
LTA BATERIA" :GGTO 398 
1178 IF 6=11 AND L019 THEN PRINT"LU6A 
R ERRADO." :GOTO 398 

1198 IF 5=11 AND RR=8 THEN PR]NT"COMO V 
XE NAO REFR0GRAÍ1OU SE DANOU, POIS O TE 
LEPORTADOR SOLTOU LHA TAMANHA DESCARGA 
DE LASER 61 VOCE. .ESTAS HGRTO!":SCTO 18 
■ 

1165 IF G=ll AND LD01 THEN PRINTUvHE 
-SE DOS OBJETOS OESTE HUND0.":GOT0 398 
119B IF 6»11 AND RR=1 THEN GOTO 2398 
1288 IF 6=6 AND IS=8 THEN PRINT"FALTA I 
NSESIR DISQUETE NO COMPUTADOR. "iBCTO 39 
8 

1218 IF S=6 AND 0B(3]=-1 AND IS=1 THEN 
PRINT"01l."!LRH!0E(3}=8:(S(13|=8iOfil(61 
<£FTI(17,0W(È))niGAD0 "íflOTO 398 
1228 1 PtKAR 

1238 INsINSTRCCORJW.WlilF IN<1 THEN 
PRINT' IMPOSSÍVEL - , i«s'?77 , :GOT0 398 
1248 IF 0B121OL THEN PRINTAQU] NAO TE 
H CORDA. "iSOTO 398 

1258 IF L01B THEN PRINT"VOC£ NAO P«CÍ 

SA FAZER ISS0!":GCr0 39l 

1268 IF CJ=8 THEN PRINTMA FOI FEITO" 

1278 PRINT"0i;.*:CJ=8i0Bí2)=-l:GGT0 398 

1288 ' INSTRUÇÃO DE MOAGEM 

1298 I=8:Nt=":I=INSTR(IV "] 

1388 IF 1=8 THEN NÍ="?????":VÍ=IÍ:GGTO 

1338 

131B WLEFTK 11,1-1) 
1328 N**hTB1|II,M] 
1338 1=8 
1348 FOR X=1T024 

1358 IFINSTR(R*(í;),VÍ)=1 THEN HHOlH 



=LEFT»|VÍ,I) 
1368 NEIT 
1378 RETtltN 
1388 ' AJUDAR 

1398 PRINT !PRINT"SEDS VERBOS!" jiFOR U-l 
T02B:!F U=28 THEN PRINTfií(U):PRINT:NElíT 
:60T0 14BB ELSE PRINTRl|Uli", 'iíMCI 
1488 IF L=9 AND BR01 THEN PRINT" Beta 
o elixir da coragw e ús vida. " :GCTO 3 
98 

1418 IF L=16 THEN PRINT" Nao passe pel 
a ponte cm d coiputador..':SOTO 398 
1428 IF L-ll OR L=12 THEN PRINTAssuste 
os seguidores iipiedosos.":PRlNT'.GCTO 
398 

1438 IF L=24 AND 0B(5)<>-1 THEN PRINT? 
egue o contador geiger . ■ :PflINT !BOr0398 
144B IF L=6 THEN PRINTChane Fénix...": 
PRINT:80T0 398 

1458 ff L«W THEN PR!NT"Para ligar o te 
leportador procure: disquete, cmputador 
,bateria, rubi, urânio 238.*:PR1NTjB0T0 3 
98 

1455 IF GB(4)=-1 AND INTÍRNDHIME|I2)= 
1 THEN PRINT'VerifinuB bolso da roupa a 
nti-radiacao.*:GOTQ 398 

1456 IF INT(RND(-TINE|I5)H=3 THEN PRIN 
T" Defenda -se cot a espada ou assuste o o 

■ o anel os iutintes...":SGTO 398 

1457 IF INT(RND(-TIhE)12)=l THEN PRINT" 
Seu objetivo e reprograwr o teleportad 
or epara isso precisa de:p/ cálculos, u 

■ COTUTADOR Hgadoíc/ BATERIA E DISQUE 
TE), ia RUBI estabilizador de fotons, u 
u jazida de URÂNIO 238 para cmoustive 
l.':FfiINT:GOT0 398 

1468 GOTO 378 
1478 1 REPROGRAMAR 

1438 IN=INSTRÍ*TEL£PORTADOR COM COMPUTA 
DCR',N*]:IF IN<1 THEN PRINT"NAG DA'.\6 
OTO 398 

1498 IF LO» THEN PRINTLUG* ERRADO." 
:GOTO 398 

1588 IF 0B(4)<>-1 THEN PRINT "FALTA COT 
UTADOR." 

1518 IF 0B(4)=-1 AND LR=8 THEN PRINPCD 
NPUTADOR DESLI6AD0," 
1528 3F QB(7KH THEN PRINT "FALTA RUBI 
ENERGÉTICO. * 

1538 IF 0B(8KH THEN PR3NT'FALTA URAN 
10 238" 

1535 IF 15=8 THEN PRINTG DISQUETE NAO 
ESTA INSERIDO NO COTUTA-DQR. . . " 
1548 IF 15=1 AND LS=1 AND 0B(7}=-1 AND 
0BÍ8)=-1 THEN PRINT"0l(. Pronto para fui 
cionar.":RR=l!S$(il|="Ha o teleportadcr 
reprogruado para as cordenadas terraq 
ueas na sala";6GT0 398 
1558 GOTO 398 
1568 VESTIR 

1578 IF 0Bí4)OL THEN PRINT"NA0 ESTA AO 
UI."!GOTO 398 



1568 IN=!NSTRrROUPA",Wl:IF IN<1 THEN 
PR!NT"ISTO NAO PODE SER FEITO" :GOT0 398 
1598 IF 0B(4)=-1 THEN PRINT" JA ESTA VE 
STIDA,":QOTO 398 

1688 0B(4|=-l:FHINT"Dt:.":60T0 398 
1618 ' OLHAR 

1628 IN=INSTR("BOLSO\NÍ):IF 1N<1 THEN 

PRINT" IMPOSSÍVEL ??!!':60T0 398 

1638 IF OB(4)0-1 THEN PRM"NAO ESTOU 

VENDO BOLSO," :GCTO 398 

1648 IF 0BÍ13K OR DB(13)=-1 THEN PRIN 

VÍP, FOI FEITO.':GOTO 398 

165* PRINT"0H.":0B(13]=LiGCTG398 

1668 1 ASSUSTAR 

1678 IN=1NGTR( "SEGUIDORES COM ANEL", NI | 
Iff IH>-1 THEN 1688 

1671 1N=INSTR("NUT ANTES COM ANEL",N1|:A 
=1 

1675 IF INC1 THEN PRINTIttO POSSO ';V* 

;* 

1688 IF DB[9)<)-1 THEN PRINTTJM QUE?": 
A=B:SOTO 398 

1698 IF A=8 AND L012 AND LOIB THEN PR 
INT:PRINT:PRINT" Co» nao existes segui 
dores aqui a tal-dicao voltou-se contra 
você e o transformou ea ■ariGre,..";60 
TO 1818 

1695 IF 0B|12)OL AND A=l THEN PRINTiPR 
INTiPRINT" Os mtantes ouvirei voce e t 
e atacara* de unsinho pelas costas. Vo 
ce foi cortado ao mio pelas espadas au 
tantos... ":GGT01818 

1788 IF AU=1 AND A01 THEN PRINT"JA FOI 
F£IJ0C:A=8:GCT0 398 
1781 IF FH=1 AND AOB THEN FflINTtPRINT! 
PRINT*0S MUTANTES R£SSUCITARAM..."iFN=8 
:GCTO 398 

1718 IF A01 THEN PRlNT"DK,"iPRINT:PRIN 
T"Os seguidores aiendrontidos cc* 
seugesto ajoelhara i seus pet, e lhe e 
ntregarat ut presente.,, "iPRINTiAUaliO 
B(18)=L:G0T0 391 

1711 MU=BiOB(12)=«!PRINT!PRÍNT" Os tuta 
ntes foral eróora correndo [ conedo da 
•aldicao do anel)e protetendo vingança 
... ":G0T039B 
1728 ' CHAMAR 

Í73B IF L06 THEN "NAO TEM NIGUEH AQUI! 
":8QT0 398 

1748 iN=INSTRfFENIX",N*):IF IN<1 THEN 
PR!NT"OUEM V *;Nij"???'iGOT0 398 
1758 IF FE=1 THEN PRINT i PRINT "VOCE ABOR 
RECEU FÉNIX !!!*:PflINT"ELA MANDOU MILHO 
ES DE URUBUS TE MATAR.":PRINT*VOC£ «RR 
EU ..."iGOTO 1888 

1768 PRlNT-OK/íPRlNTiPRIWU» ave lin 
da e delicada poe ao seus pesui present 
e de FENU, o ANEL DO M£DO,e)etei o pod 
er de lançar Mldicccs e queio posuir 
tera poderes iIiiitados.„"iPRINT 
1778 0fl(9]=6:PRINTS»(91 
1768 NEiTiGCTO 538 



1790 ' DESCRIÇÃO DOS LOCAIS 
1B8B ' LOCW. 1 

1B1B PRINT" Voce esta num desfiladeiro 
sem fundo, o DESFILADEIRO DO «KA... 1 
182! fH:E=fl:S=I:tMJ:RETlRN 
1SJÍ ' LOCAL J 

1640 PRINT" Voce esta na Mansão Uai -As 
mbrmdm.' 

1850 IF SROl THEN PRINT" Os espíritos 
da Mansão lhe deram um susto e voce i 
orreu de •edo...":E0T0 1080 
im N*E*S=i:W:RETURN 
1871 'LOCAL 6 

1888 PRINT' Aqui e a Sala Encantada de 
Fbtiík - i ave sagrada." 
1898 MiE4:S«I:*4:IETllN 
1988 ' LOCAL 7 

191B PRINT" Voce esta na Floresta Petr 
í ficada," 

1928 (t=l:E=l:S=B:tM:RETURN 
1938 1 LOCAL 8 

1948 PRINT* Voce esta nD maligno Deser 
to do Saara Dimensional." 
1958 H=eiE=Í!S=B!«=l:R£TURN 
1961 ' LOCAL 9 

1971 PRINT" Aqui e a encruzilhada dos 
Indecisos." 

1988 N=l:E=l:S=l:N=i;RETURN 
1998 ' LOCAL 18 

2888 PRINT" Tu estas na fantasmagórica 
e lendária, SfiUTA DO HORROR!!!* 
2811 IF (0B<18)=-I AND AUOl) OR (0B(18 
|01 ANO AUOl) Tf€N PRINT" Os seguid 
ores de THANTHANDAOEA, estaovindo te p 
egar. Faca alguma coisa!* 
2828 N=8:E=1:S=8:#=1: RETURN 
2838 ' LOCAL 11 

284B PRINT" Tu estas no templo dos seg 
uidores de THANTHANDACUCA, os impiedos 
os..." 

2858 IF AUOl THEN PRINT" Os impiedoso 
s e carniceiros seguidoresde THANTHANDA 
CUCA te embalsamaram nua sarcófago para 
seipre!!!??? , :GOTD 1888 
2868 N=8:E=1:S=8*1:RETURK 
2878 ' LOCAL 12 

2888 PRINT" Voce saiu da Gruta e agora 
esta numa montanha rochosa.' 
2898 IF (QBÍ18)=-1 AND AUOll OR (0B[18 
]01 AND AUOl) THEN PRINT* Nas os se 
guidores de THAfíTHANDACUCA, estaovindo 
te pegar. Faca alguu coisa!" 
2188 N=l:E^:S=l*l:F£TilRN 
2118 ■ LOCAL 15 

2128 PSINT* Vote acaba te entrar na gr 
ande e potente USINA NUCLEAR DE TANSA D 
OS REIS...* 

2138 N=l:E=l:N=8;S*l!RETURN 
2148 ' LOCAL 16 

2158 PRINT" Voce esta na saída leste d 
a usina." 

2148 IH:E=1:W=1:S=8:RETlW1 
2178 1 LOCAL 17 

2188 PRINT* Voce esta na urge* de ui g 



rande vate,q 
nte de corda." 

2198 IF DB[o)=-l THEN PRINT" A ponte se 
partiu por eicesso de peso do computa 
dor..,"; GOTO 1888 
2288 N=8:E*HS=8:IH:RETtltN 



2218 ■ 



. 18 



2228 PRINT" A sua frente ha uca cachoe 

ira de acido sulfúrico," 

2238 IF CJOl THEN PRINT* Voce nao pod 

e atravessar a nado!!";N=e;E=0!S=8:N=Í: 

RETURN 

2248tel:E*S--l*l:RETURN 
2258 ' LOCAL 19 

2268 PRINT" Voce esta na sala do telep 
ortador di- mensional.* 

2278 N=8:E=1:S=B:#*RETURN 
Z288 ' LOCAL 28 

2298 PSINT" Voce esta nn laboratório d 
a usina.' 

2388 N=B:E=Í:S=8:N=l!RETURN 
2318 ' LOCAL 21 

2328 PRINT" Tu estas no centro do reat 
or termcnu- clear da usirtí.* 
2338 IF 06(4)0-1 THEN PRINT" Co» a r 
adiotividade e mito grande e voce nao 
esta cm a roupa certa, voce morreu co 
ntaiinado.":GOT0 1888 
2348 N=1:E=8:S=8:N=1:RETURN 
2358 ' LOCAL 24 

2368 PRINT' Ha uh vegetação mito est 

ranha sobre um ídolo." 

2371 IF 0B(5)O-l THENN=l:E=8:S=8;N=e: 

RETURN 

23B8 IF LVOi THEN PRINT" D contador g 

eiger esta denunciando alguma coisa 

na vegetação! !!' 

2381 N=1:E=8:S*0:N=8:RETURN 

2398 1 VITORIA 

2408 CLS:COL0R 5,l!PRINTTABI13);'A Tele 
portacao" 

2481 PRINTíPflINT" 0 "jOIÍSÍUffi] ;"T 
eleportador*iCHRI[ÍH22!i" foi Kionaoo, 
,.*:PRINT" Raios de laser de varias 
cores e espessuras percorrem a sala, n 
o painel de controle as luzes piscam fr 
eneticamente, de repente um alarme toca 

2402 PRINT" 0 que sera ??" 

2483 PRINT:PRINT" E' a teleportacao 
que esta se processando. Um raio o atr 

avessa, voce nem o sente e...* 

2484 PRINT" Quando voce abre os olh 
as, esta de volta ao seu mundo, a sua c 
asa,':PRINT' Agora esta no seu quar 
to, ao redor, nao tem ninguém. Olha o r 
elogio e:Se>ta,13 de Agosto de 2884 Bs 
11:31 da noite!* 

2485 PRINT" Foi um sonho?!" 

2486 L0CATE9,21lPRINT*Pres5Íone Qualque 
r T«la':3F INKEYt**" THEN 2486 

2487 CLS:PRINTTA8(13|;'A Teleportacao" 

2488 PRINT iPRINTiPRINT" Voce poe su 
a no no bolso e sente alguma coisa de 



estranho." 

2489 PRINT" Mas como, voce abandono 
u tudo ?"iPRINT" Voce pega, olha." 
2418 PRINT" Um papel! Voce o abre. 
Uma Carta! Voce le esta:' 
2412 PRINTiPRINT" Isto nao foi um s 
onho, "sPRINT Foi uma aventura e ta 
nto!!!* 

2415 PRINTSfC[5|;'Eu voltarei, bravo av 
entureiro. " :PR!NTSPC(5) ; 'Eu voltarei. . . 
*:PflINTSPC(5)i"Voltarei para novas e em 
Detonantes" ;Stt(4)|'aventura5.*:fflINTTA 
8[17|;'ASS: LORD TREVAS": PRINT 

2417 LOCATEa,9:FCflK=ieTOii;L0CATE8,t::PR 
INT* ■:L0CATE39 I K:PRIMT' 'iNEÍT 

2418 L0CATE1.17 

2419 PRINTiEOTO 1008 

2428 LOCA TE B,22'.CCL0fl 15,13:PRINT:PflIN 
T 

2438 PflINTiPRJNT" D mundo perdido d 
a 3a dimensão': PR INT 

2440 PRINT" Houve um acidente oeo-d 
imensinal numa Sexta-feira, 13 de Agost 
o de 2884( bissexto! As 11:30 da noite." 

2441 PRINT' Devido ao fortaleciment 
o da ma sor te neste detestado dia, voe 
e foi puxado para ";CHR*fftH22) j "Q Mundo 

Perdido da3aDim»Sío'iCtfr>(*H22)i'.' 
2458 PRINT* Voce deve reprogramar o 

único tele portador existente ng unive 
rso, para voltar a terra rever sua fami 
lia." 

2468 PRINT" Como esse mundo e muito 
hostil, cuidado! Voce enfrentara cacho 
eiras de aci do, mansões mal -assombrada 
s, fanáticos religiosos e muito mais.. 

2470 PHINT:PRINT" Quando nao souber 
o que fazer escreva AJUDAR (em maiueul 
as)." 

24B8 PR]NT 1 PRINTiPRINT:F1í]NTTAB|9)i*Pre 

ssione Qualquer Tecla" 

2461 L8=]NÍEW:IF Lt=" THEN 2461 

2482 LCCATE13,22:PRINT:PRINT" 
'CONTINUAÇÃO' "iPRINT 

2483 PRINT" Como desgraça pouca e b 
obages ha também um grupo maligno de 
mutantes do apocalipse, guando estiver 
na presença deles digite DEFENDER-SE DO 
S MUTANTES (qdoestiver com a espada) ou 

ASSUSTAR MUTAN-TESIqdo estiver c/ o an 
el)." 

2485 PRINT' Se nao fizer isto voce 
sofrera na carne um ataque mu t ante dev- 
astador. "iPRINTiPfilNT" A opcao AROU 
IVOS lhe da um menu com opcoes de LEITU 
RA,GRAVAiAC,ETC para as-sim gravar o jo 
go em qualquer parte.' 
24S6 PRINT 

2407 PRINT" Esse adventure foi desenvo 
lvidopor; ";:PRINT* QUILHERJC ARAUJO 
LIMA DA SILVA (C|19B7 "; ' 

2488 PRINT 

2489 PRINT:PRINT* Qualquer tecla pa 



ra continuar' 

2498 L«-JMCEV*sIF L10" THEN RETURN EL 

SE Z49fl 

2588 ' INSERIR 

2518 IN=II6TR( "DISQUETE NO COMPUTADOR" , 
N*):IF INOl THEN PRINTMWOSSIVEL???": 
GOTO 398 

2528 IF GBIAJO-l THES PR1NT"3UE COMPUT 
flOOR? 1 

2538 IF 08(13)0-1 THEN PRWQtE DISQU 
ETE?" 

2535 IF 1S=I THEN PRINHA ESTfl INSERI D 
0...':60TO 398 

2548 IF 0B<13)— 1 MD OBíBM THEN PRI 
NT'0K...ESTA INSERIDO! *:IS=1 
2558 BOTO 398 
2688 1 ftITANTES 

262B IF «J(l THEN HM sBOTG 393 

2622 IN=8:FQRMrONSiIF 08(1 )=-l THEN 1 
N=IN+1 

2623 NEIT I 

2625 IF IN08 THEN 60T0 2888 

2638 IF IN=8 THEN PRINfOS HUTMrTES TE 

tttTARAM POIS VDCE NAOTItfHA NADA PAR 

A SER ROUBADO. 'iSOIO 1888 

2688 SOTO 398 

2788 ' DEFENDO! 

2781 HMNSWDQS NUTflWTEB" f trt ) 1 1 F IN< 
H THEN PRINT" IMPOSSÍVEL - " ;N»; '???" ;6 
OTO 398 

2718 IF DB(12)OL THEN PflWDO BUE?':G 
OTO 398 

I72B IF QBUBKM THEN PRINTCW 0 QUE 
?*:GOT0 398 
274R FIM 

2741 PRINTVkb b atacado por ui mtiM 
e. , . " !PRINT"Voce o corta. ..ele geie e c 
ai 1 " :FCRV=1T01BBB;NE1T 

2742 PRINT*Vm outro... Voce da ut seco. 
.."íPRIWEle rodopia b cai ! " :F0RV=1T01 
BB81NEIT 

2743 PRINT*Vw o chefe cot um espada. . 
.vocb o ataca... ele defende e trope 
ca...":FBiV=lT02BW:NEXT 

2745 PRINT"Voce o Nta fria»ente,ele so 

lta im horripilante turro e abraça 
t «rtt! ! ! " iFORVilTDSMf «T 

2758 IF N=B THEN uB(12!=8:!tHiB0T0 398 
ELSE PRINT"Nw mus pes tttao os objet 

os saqueados. ■iBEEPiEEEPíBEEPíBEEP 

2778 FOR MIOU 

2771 0B(H(I)K:HEn 

2788 0B(12)*G0T0 398 

2888 ■ ROTINA DOS HíIAflTES 

2318 K=INT(RND(I)INB)*l!fF QB(KKM TH 

EN BOTO 2B1B 

2828 PRINTTJS MALDITOS WTMfTES-iPRINTT 
HS(?);'R0UflAflMHjej , ;0W(í:)iH1*I:0B[í 
)-8:h(M)=K!rU=8!NT=fl:OB(12)=«:60TO 398 
2988 ' LIVRMÍ-SE 

291B IININSTRCDOS QBJETOS 1 , W) :IF !N<1 
THEN PRINT-LIWMI-SE DO flUE???! ! !':80T 
0 391 



2915 W=8 

2916 IF L0=1 THEN PRINT*0UTRA VEZ?':GOT 
0 398 

2928 FDRI=1T0NB:IF 0B|I)=-1 THEN BJ=BJ* 
l 

2921 NEÍT 

2925 IF RROl THEN PRI NT "AGORA?': GOTO 3 
98 

2938 IF &>B THEN PRI NT *QUE 03JETOS7?- 
:GOT0 398 

2948 F0RI-1T0NB-1:IF 1=6 GR 1=7 Dfi 1=8 
0R THEN NF.IT ESE 08(1 )=8:NEXT:L0=Í 
2958 ffiM'DK.. .ALGUNS DESAPWICERAfl,HA 
S:COHPUTADGR LIGADC.UPMO E RUBI NAO." 
:SOT0 398 
3888 ' ARQUIVOS 
3818 CLSiCOLQft 1,11 

3811 IF LEFTIÍB, !)=■£■ CR LEFTt (»,!)= 

V THEN fWU£',"if=i 

3815 ON ERROR SOTO 3688 

3828 PS]NTTAB(5)'LQAD / SflVE / KILL / F 

ILES" 

3838 L0CflTE14 í 6jPRI«T" 1 SAVE" 
3848 LOCATE14i7:PRINT" 2 LOAD' 
3858 L0CA!E14,8:Pfl]NT' 3 KILL" 
3868 L0CflTEI4,9:FHINT' 4 FILES" 
3865 L0CATE14 ( 18!PRINT- 5 VOLTA* 
3078 LCCATE18,17;FWNTm A SUA ECOLH 
A :* 

3888 S*=INKEYl!lF B8«" OR BKM' OR S$ 
>"5" THEN 3888 

3898 ON VAL1S1) BOTO 3188,3288,3388,348 
8,378 

3188 1 SAVE 

3118 aS;PfiINTTAe(14) , l SAVE I" 

3128 LEATE18,1B:]NPUT "QUAL 0 NDNE';NA 

I 

3138 NA*=FItNA»f.ADV":OPEN NAt FOR OUT 
PUTAS II 

3135 PR1NTI1,LV:PRJNTI1,LR:PRINT*1,L0;P ' 

flINTIl,fl:PRINTil,AU;PRrNTIl,a:FRINT»l, 

RR:FHINTÍ1,!S:PRINTI1,BR 

3148 PBINTI1,NB 

3158 FOR I=1TDNB 

3168 PR!NTtl,OB(I) 

3178 NEIT 

3188 PRINTIl,l1:FHINTIl,rITiPRINTil,rIJ:PR 
INT#l,FHfPRINTII,L 

31B1 IF M THEN 3185 ELSE FDRI=1TDM:PR 

INTI1,M(I):N£1T 

31S5 aOSE II 

3198 L0CArE17 f 28:PRINT"0i;.' 

3199 IF INJE»»" THEN 3199 &SE 60T0 3 
888 

3288 ' LOAD 

3218 CLS:PRIN7TAB(14)'l LOAD I' 

3228 L0CATE1B,1B:INPUT 'QUAL D NCtE";NA 

I 

3238 NA*-FIWA»f,ADV'iOPEN NA* FOR INF 
UT AS II 

3235 INPUTIl.LViINMIl.LRilNPUTIl.LO;] 
WWli.AiINFmiljAUíINPUTIl.CJilNPUTIl, 
W:INPUTI1,IS:INP1ÍTI1 ( BR 



3248 INPUTIl.NB 
3258 FOR I=1TQNB 
3268 INPUTIÍ.OBII) 
,3278 NEÍT 

3271 II8PUTtl , H : INPUT81 ,HT: INPUT81 ,t*j : I N 
ftlTll,FH:lNF"JTIl,L 

3272 IF M=8 THEN CLDSElliGUTO 329e:EL£E 
F0RI=lT*:!NPUTIl,(l(IJ:NElir:aOSEIl 

3274 FOR U=1T0H 

3275 0B(N(U))=8 

3276 NEÍT:SOTO 3298 

3298 L0CATE17,28:PRINT'0K.' 

3299 IF INKEYt=" THEN 3299 ELSE SOTO 3 
888 

3388 ' KILL 

3381 IF N THEN 3888 

331Í aSfPRJNTTAB(í4)"# KILL I" 

5328 lOCATE18,18!lNPtJT "QUAL 0 rOt£";HA 

I 

3325 LDCATE17,2e:PfilN™.' 

3338 NAt=NAU".ADV;i;iLL NAt 

3335 LCCATE17,2B:PRIN™.' 

3348 IF WEH»" THEN 3348 ELSE GOTO 3 

7B 

3488 1 FILES 

3481 IF F=l THEN 38» 

3418 CLS;PRINTTAB(13)'I FILES I' 

3428 LDCATEB,9:FILES'I.ADV' 

3425 L0CATE17,28:PRINT"0i:.' 

3438 IF INKEYt" THEN 3438 aSE GOTO 3 

888 

35W 1 BEBER 

3518 IN=a:]N=INSTR{*ELniR',NI|;IF INíl 
THEN PRINT'NA0 FA» NE RIR !'!GOTQ 398 
3528 IF 0B(I)<>-1 THEN PRINT"VOCE NAO P 
0DEBE8ER0 9UENA0TFJ1...":G0T0 398 
3538 IF Bfi.08 THEN PP. I NT: PRI NT" VOCE T 
OHOU UHA 'OVERDOSE' DE ELUIR-sPRINT' 
SLA BULA O MATOU '":SOTD 1888 
3548 PflINT'QK! VOCE ESTA FORTE COMO UH 
TOURO !!!':BR=1:60T0 398 
3688 ' ERROS 

3618 IF ERROÍ3 THEN 3628 ELSE PLAVV15 
07C8":LOCATEB J I6iPRINT"ARQUIV0 INEXISTE 
NTE !!!':R4*=I*UTt(l!:RESUÍ3BeB 
3628 IF ERR056 IHEN 3638 ELSE PLAY'V15 
D7C8':LCCATElB,16;PflINT'N0r£ INCDRRETO 

!!!*!fi4*=INPUT*(l|!fi£S«C38BB 

3638 IF ERR067 THEN 3648 ESE PLAY'V15 

07C8'iLOCATElB,16:PRINT'DIR£TORIO CHEIO 

!'!":R4»=iNPUT*(l]:RESLrE3eW 
3648 IF ERR066 IHEN 3658 aSE PLAY'V15 
07C8':L0CATE13 i 16:PRINT*DlSCO CHEIO '!! 
':R4t=IIFUTt(l|:REStrE3eee 
3658 IF ERRO68 THEN 3668 ELSE PLAY'V15 
07C8":L0CATEll,16iPRINT*0ISC0 PROTEGIDO 

!!! , íR4f=INPUTf(l):R£SUH£3B8e 
3668 IF ERR069 IHEN 3678 ELSE PLAVV15 
07CB':LDCATE13 l 16:PRINT'ERR0 DE E/S !!' 
'iR4*=INPUTt(l):RESUrE3888 
3678 IF ERR07B THEN 3688 ELSE PLAY"V15 
07C8"tL0CATE13 ( lilFH!NI"FALTA DISCO !!! 
•!R4$=IfPUT*(l];RESLr€3B8e 
3688 LOCATE 14,i6:FflINT'ESR0 !!!'!R4*=I 
lfUT$(l]!RESllC3B8B 



BATTLE FOR MIDWAY 



TÂNIA ALVES 
MSX INFORMÁTICA 



APRENDA A JOGAR UM DOS MELHORES 
JOGOS DE ESTRA TÉGIA PARA O MSX. 



Batlle for Midway é um dos melhores jogos de 
estratégia feitos para o MSX. Nele se equilibram a veracidade do 
fato histórico real com o desafio de um excelente jogo. Tendo por 
base a verdadeira batalha travada entre americanos e japoneses, 
este jogo consegue aliar de forma supreendente estratégia c muita 
aç3o. 

Assim, consegue agradar tanto os aficcionados em 
jogos deguerracomo os dequalquer outro tipo de jogo. Muito mais 
realista do que um jogo de tabuleiro, onde o jogador "todo-pode- 
roso" tem o total controle da situação. Em Batlle for Midway, o 
computador permite que o elemento surpresa seja aproveitado, de 
modo que você possa provar que é um bom estrategista. 

Por outro lado, com a utilização dos recursos do seu 
MSX, o jogo também apresenta certas de combate nas quais você 
participa e tem a chance de mostrar as suas habilidades ao se 
defrontar com o inimigo. 

Para conseguir jogá-lo até o fim, há a necessidade de se 
estudar muito bem o manual, sem o qual poucas coisas poderão ser 
feitas para se vencer a batalha. Nele estão explicados os diversos 
níveis de jogo, bem como as velocidades disponíveis do jogo e sua 
relação com o tempo real. Além disso, ele explica as diversas 
unidades aéreas e navais, com seus códigos, corese relatórios, sem 
deixar de lado as explicações da movimentação da unidade, 
condições de vôo, reconhecimento, ataques aéreos e de superfície, 



TÁTICAS DE JOGO 

Batlle for Midway foi programado visando reconstruir, 
da forma mais real possível, as tensões e os imprevistos de uma 
batalha, além de desafiar a capac idade estratégica do jogador.Nelc 
foram incluídos um relógio e limitações de combustível que 
tiveram por objetivo recriar as pressões que sofre um comandante 
e um combate. As sequências de ação em tempo real são 
ra propiciar uma visão de batalha. Mas o jogo tem 
"armadilhas". Por exemplo: o jogador nunca pode ter certeza de 
que um porta-aviões afundou mesmo que possa vê-lo em chamas. 

De outro lado, porta-aviões, que aparentemente saíram 
ilesos do combate, poderão afundar posteriormente. 

Osaviões de reconhecimento são usados para represen- 
tar os hidro-aviões que estavam baseados em Midway. Como são 
hidro-aviões, permanecem operacionais mesmo que a base aérea 
de Midway seja destruída. 

Algumas vezes são notadas falhas na área de reconhe- 
cimento. A itenção é de "punir" o jogador pelo uso de titicas 
inadequadas, mas também representa a confusão que resultaria de 
uma observação mal feita em uma situação real. 

As frotas japonesas têm a capacidade de sumir por 
algum tempo, depoisde um combate de superfície. Este recurso foi 



utilizado para simular a dificuldadecm se diferenciar um navio do 
outro, quando um grande número deles se encontram em uma 
mesma área. 

Algumas pessoas podem achar que os combates de 
superfície são injustos para com os americanos. Isto visa compen- 
sar a verdadeira situação dos americanos durante a guerra, quando 
as unidades de superfície japonesas apresentavam um desem- 
penho bom na guerra. Mais tarde, com a utilização do radar pelos 
americanos é que a situação mudou. 

Para sair vitorioso, você deverá, assim como os ameri- 
canos, afundar mais de dois porta-aviões para cada um dos seus que 
for afundado. O principal objetivo dos japoneses era o de destruir 
a frota de porta-aviões americana. Neste estágio da guerra, os 
japoneses estavam preparados para perder dois porta-aviões para 
cada um dos americanos que conseguissem destruir. 

Muito mais poderia ser dito, mas a real dimensão deste 
jogo você vai perceber após jogar algumas partidas com o auxílio 
do seu manual. Boa sorte. 
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Os Magos do software para MSX 

ENIGMA ■ STREAKEH ■ GR.OTTEN - BLACK PIRATE ■ 
HUNDRA • CAPTA IN SEVILLA l/li ■ ARKOS l/lllll ■ FANKY PANKY ■ 
ELITE • DESPE RA DO • ABADIA ■ TRANTOR - DUAD • MADMIX ■ BOP ■ 
NEMES1S ■ LINKE R'S SUPER ST AR SOCCER - SIR FRED • INDIANA 
JONES • CARFIGHTER ■ VENOW -OCEAN "SUB CONQUERER ■ 
EL MAGO (EDUCAT.] ■ GAME OVER 1 & 2 • ZAIDER ■ THE PUB - 
STAR FIGHTER ■ REX HARDEST - MUITOS OUTROS 



Nossa documenlaçao larta 

Nono «upor catalogo - grális (p*ça o h 



JOGOS 

»pnr.*- MOMITuTMOi 

inrj 1*1 ,1 •.S.CttflAljOHI s 
D SCOiFn*Crt 800.00 . 
P0S1A:S 



Cl» ' 300 TO 
Crí 1 500.0C 
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BR 116 - A RODOVIA DA MORTE 



GUILHERME A. L. DA SILVA 



Navalhada Jones é um grande aven- 
tureiro que busca emoções e perigo incan- 
savelmente. Pensando nisso, o nosso herói 
foi assistir ao Grande Prémio de Fórmula 1 
do Brasil e teve uma ideia repentina: roubar 
um carro e sair "rodando" pela BR 116!!! 

Mas como? Navalhada Jones não 
sabe pilotar um fórmula 1 ! 

Então, você deverá ajudá-lo a con- 
duzir o carro. Lembre-se que Jones é 
"barbeiro". Portanto, conduza com nervos 
de aço e bata recordes de permanência na 
rodovia. 

O PROGRAMA 

O programa é feito totalmente em 
basic c SCREEN 1; mistura textos, sprites 
e caracteres gráficos. 

A tela, ou melhor, a pista, se move 
de cima para baixo, obtido por um scroll 



10 REN-BR - 116 
28 REM— PARA NSI 

38 REH- 

48 REW--BY SUILHEFBC 
58 RÇM-- 14/1B/1988 
68 REÍI-GUARARAPES 

78 f& 

BB DATASEW, 2888, PROST,1008, 8ERGER.4H, 

PI MI f S5a,GU^LMJH,3W 

"8 RESTDfiE88:FORJ=lT0S:fiEA0CF1{J),CD(J] 

:NEÍI 

188 DIMETI58) 

110 ÍEÍOFF:SCR£EN1,,8:KK=0:TS=2:EH=CHR 
* 1 21 9 ) : B2t=0« ( 21 5 1 : B3»=CHR$ ( 238 1 :G0SU 
B430 

ia RATíwiiaea, 01U1110, anime, 0001 

1808,86811888,11811011,11111111,1181181 

1 

138 REST Dfi£ 1 20 : F CKH=0T 07:READP$:S*=S*+C 
rtí!(V«.r&8 H +Pt)!:NE<T 
140 SPRITE*Í 1 )=B* 
168 S0=13: I=S 

178 X=i2fl:Y=8B:VL=l:FDRK=lTO22íETít;)=10 

:NEir;GOSUB258:ET=18:SOSUB510 

188 COLOR 1,15,PC 

190 ES=INT(RNDHIf€)l[3-DFl)+DF 

288 1FES=1ANDET<21 THENET=ET+1 

210 IFES=2ANDET10THENET=ET-1 

220 N=N+ J : ET ( N ) =ET : IFft=l 1THEN60SUB2W 

230 IFW=lTHEffrjflI=11701SrEP-l:ET(I)=£T 

(1-U:NE1T:ET(1)=ET;SHJIÍ258 

248 G0T0198 

258 LDCflTE , 0: F0RKJ=1 TDPT : rCXT 

268 N+l:LXflTEET(i):PRlNTB2Í;B2t;B21; 

Bl*f ';Bl*iB2í;62$iB2í:NN=l:N=B:C=STl 



invertido, dando a impressão de 
movimento. 

O ruídos do motor e da explosão são 
produzidos pelos comandos SOUND. 

COMO USAR 

As setas para esquerda e para direi 
la contraiam a direção do carroe as setas pa 
ra cima e para baixo a aceleração. 

Os carros estão em ordem de difi- 
culdade: 

NÍVEL 1: AIRTON SENA 
NÍVEL 2: NELSON PIQUET 
NÍVEL 3: MAURICIO GUGELMIN 

VARIÁVEIS 

CP$() = nomes dos recordistas 
CDO = distâncias recordes 
DD() = auxiliar de CDO 
PP$Q = auxiliar de CP$0 



CK(B)!lFC=7TrENM-8 
270 IF03TftNI=UB 

288 IFC=lflNDY>ST*(ÍV=Y-8!flC=ACH:S0=S0- 
l:GDSJB5ia 

298 IFC=5WDY<B8TI€NY=Yt8:AC=flC-liS0=S0 
MtfflaKlI 

388 PUTSPRITEl.H.YI.PCíIFCSRLl^lBTHEN 
VL=0 

318 Ci=INT(i;/B-2)!Ei=ET!INT[Y/8)*l]:lFC 

í<EiMORCl>£H5THENGOSUB350 

328 IFK11THEN348 

338 CM=KM+(|lB-PT)-DF)+flC!VJ^OS[a)iVY= 

C3RLIN:L0CflTE12,16iPfiINTUSIMG' tttH' ; K 

M ( :PRINT" ít ";TS=TS-.85:L0CATE9,18iPftI 

NI"CR0N0HETRfl6EN';LDCflTE14,2B:PRINTUSlN 

6°#,«"iTS:L0CflTEVX,VY 

331 1F TS>0 MN RETUfiN ELSE GOTO 341 

348 GOIO260 

341 SOUND7,7:SO)NDe,15:FORI=lTO1000:NEI 
I:S0UNDe,8:PUTSPRrTEl,(-e,-B|,B 

342 CLS:LDCATE5,8!PflINT"Ar.flttt] d seu te 
■po. . . u ;L0CATE5 , 10!PRINT"Percorreu : " ; KM 

ki/:L0WTE7,21:PRINT"Pee6Sione Espa 
co":«=INPUT1(il:IFM<>- "TT€N342ELSE39 

358 REMBATEU 

360 IFVLO0THENRETURN 

378 PUISPRITEl,(-8,-B),8iLQCflTECÍ,INT(Y 

/8]:PRINT" ":S0UND7 ( 7:S0UND8,15:F0RI=1I 

OlMiKITi 

3B0 S0UND9,f!;CLSiLDCflTÊ7,B:PRJNT"Vor.e c 
olidiu.,.*;LtJCAT£5,18:PRINT"Percorreu:' 
;KM;" k^^L0CATE7,21:PRINT'Pressiorie E 
spaco";M=INPUTí(l)]IFMO' "THEN3B8 
398 SOSUM20: FOR J =1T05 ! i FKM>=CD ( ] ) THEN6 



KM = quilómetros rodados 
TS = tempo 
Bl$ = bloco gráfico 1 
B2S = bloco gráfico 2 
B3$ = bloco gráfico 3 
SO = intensidade do sound 
X = X do carro 
Y = Y do carro 

VL = sem verificação de trombada 

ET() = tabulação da estrada 

P = cor do carro 

PT = tempo de espera 

DF = dificuldade 

ES = sorteio 

PL = número do piloto 

I = contador 

C = stick 

AC - aceleração 

CX = X do carro em colunas 

EX = X do começo do acostamento 



GTO408:ELSENE«r:GOTQ410 

408 FORN=lTOi;PP$(N)=C«(K);DDíN)=CD(N| 

;NEIT:FC»l=IID5;CP*|N+i}=PP*(N) :C0(N*1 I 

=DD[N)!«XTiLDCÍlTE0 i 17:PRlNII; , í NDME « 

i :IfPUTCP$(l):CD[I) í |?l:GO£UB420 

410 LDCflTE8,21:PRlNT"J0GA DE NOVO ?';« 

sINPUTilDilFHO-N^IHENOITO 110ELSEEN5 

420 CLS : PR1 NTTAB ( 9 ) ; "CAMPEONATO" : LOCflTE 

5,4:PRINr"MrjNE";SPC(8);'DISTANClA"|;F0R 

I =iT05: L0CATE5, 18+ J ! PRINTCP»! I ) ; :L0CATE 

18, lfl+l!PfiINTUSING"»«#«#" ;CD( I ) !NEÍT:R 

ETURN 

430 REHPAINEL 

440 FDRMTOll:LOCATE0,I:PfiIfíTSrRIN6*|2 
9,B2HiNEIT!fORI=:12T021:LrjCATE8,I:PRINT 
STRINB*|29,Bll):NErT!LOCATE0 f ll!PlíINTST 
RING*(2?,B3») 

450 LOCAIEOtWiPRlIfTBlI^l-SENA 2-PIQUE 

T HBUGELniM" j t Pt-INPUTl ( I ) iPL-VAL ( P* i 

460 IW.<10RPL>3THEN458 

478 IFPL S 1THENP» 3 ' AIRTON SENA - «CLA 

REN "tPC=9jPT=Í:DF=l 

480 IFR=2IM0«=" NELSON PIQUET - LO 

TUS ":Pf>10:PT=2;Df=8 

490 IFPL=3THENPt="fWI!ÍCID SUGELMIN - N 

AftCH , :PC=5;PT=7:DF=0 

500 L0CATE8,19:PRINTSTRIN61(M,Blt)!lX 
ATE2, 12 1 PR] HTP*;LLXATE7 , H 3 PRINT " KM PE 
RCORRIDOS ^L0CATE^ 1 16!PRINTUSIN6■ Hl 
H';01;:PRINT' Kl " 

501 LOCflTE?, 13;PRINT"C»QHCIMETRfl6Er1" : LX 
ATE14,20:PRINTUSING'I.M';TS:RETUÍN 

518 EaJND7,2M:SOUNO0,l!SOUHDl,SO:SClJND 
4 > 20:EBU^,lÈ:EBUNDll f 255;SOJNDÍ2,l!SO 
UND13,13:RETL»I 
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JOGOS & HIGH SCORES 



JOGO 






JOGO 


SCORE 


RECORDISTA 


ALIEN 8 


82% 




LAZY JONES 


200.250 




ALPHA BLASTER 


89.235 




LES F1CLES 


100.200 




BARNSTORMER 


279.955 




LEMANS 


42.530 




BATTLESHIP CLAPTON 


97.300 




MANIC MINER 


117321 


PEDRO MARIANI 


BEAMRIDER 


207.520 




MÁXIMA 


211.120 


BLAGGER 


231.520 




MONKEY ACADEMY 


461.200 


ROBERTO T F MORAES 


BOOM 


99.240 




MONPIRANGER 


840.100 




BOULDERDASH 


59.848 




MUTANT 


737 




BOUNDER 


321.624 


BRUNO MU RR AT 


NIGHTSHADE 


137.000 




BOXING 


10 




NINIA 


42.750 




BUCK ROGERS 


310.900 




OHMUMMY 


5.030 




CENT1PEDE 


53.795 


ALEXANDRE C GREIG 


OH NO 


76.250 




CHJLLER 


42.201 




OILS WELL 


215.700 


ROBERTO T F MORAES 


CHORO Q 


42.380 




PAN1C JUNCTION 


14.919 


CIRCUS CHARLIE 


1.198.460 




PASTFTNDER 


24.205 




DISK WARRIOR 


1.400.000 




PELLBOX 


2.800 




DOGFTGHTER 


10.100 




PINBALL 


1.240.680 




ELI DON 


94% 




PITFALL D 


199.000 




ERIC AND FLOATERS 


1.844.160 




POLAR ST AR 


289.990 


ALBERTO G SANTOS 


FINDERS KEEPERS 


18.323 




PUNCHY 


8.434.070 




FIRE RESCUE 


29.540 




PRICE MAGIK 


12% 




FUGHT DECK 


7.210 


MARCOS A LACERDA 


PYRAMID WARP 


820.758 




FRUIT FRANK 


21.000 




RI VER RAID 


73.450 




G ALAGA 


452.200 


ALEXANDRE C GREIG 


ROAD FIGHTER 


986.675 


BRUNO MURRAT 


GHOSTBUSTERS 


S999.9O0 




ROLLER BALL 


4.580.120 


GOLF 


28 




SASA 


200.195 


ALBERTO G SANTOS 


GR1DTRAP 


558.120 




SCION 


95300 




GUNFR1GHT 


$150.000 




SOCCER 


40-0 




HEIST 


384.201 




SPACE WALK 


1.846.200 




HERO 


692.120 




SPOOKS AND LADDERS 


189.930 




HIGHWAY 


339.360 


MARCOS A LACERDA 


STEP UP 


60.250 




HOOPER 


100.050 




.STOP THE EXPRESS 


7.360 




HOTSHOE 


187.575 


PEDRO M FRACT 


SUPER COBRA 


501.100 




HUNCHBACK 


2.700.000 




SWEET ACORN 


6.438.460 




HUSTLER 


8 


ROBERTO T F MORAES 


TENNIS 


6-0 6-0 




HYPER RALLY 


310.100 




THE SNOWMAN 


36.510 




HYPER SPORTS I 


2.050.800 




THE WRECK 


23.975 




HYPER SPORTS n 


500.500 




TIME BANDITS 


9.990 




HYPER SPORTS 01 


65.532 




TIMECURB 


274.040 




HYPER VIPER 


127.500 




TIME P1LOT 


689.000 




INTER. K AR ATE 


999.999 




TRACK AND FIELD1 


266.540 




JET FIGHTER 


214.950 




TRACK AND F1ELD II 


500.300 




IET SET WILLY 


120 




TURMOIL 


12.520 




KINGS VALLEY 


5.642.600 




VACUMANIA 


22.340 




KNIGHTMARE 


478.200 




VALKYR 


47.205 
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JOGOS 

NEMESIS 
KNIGHT NINJA 

TIPO- Aventura oriental 
APRESENTAÇÃO- 10 
GRÁFICOS- 9 
SOM- 9 

INTERESSE-10 
NÚMERO DE BLOCOS- 3 
TOTAL GERAL- 9.5 



SKY VISION 

TIPO- Espacial de ação 
APRESENTAÇÃO- 7 
GRÁFICOS- 8 
SOM- 7 
INTERESSE- 9 
NÚMERO DE BLOCOS- 3 
TOTAL GERAL- 7 



EMILIO BUTRAGUENO (FUTEBOL) 

TIPO- Jogo de Futebol 
APRESENTAÇÃO- 10 
GRÁFICOS- 9 
SOM- 7 
INTERESSE- 9 
NÚMERO DE BLOCOS- 5 
TOTAL GERAL- 9 



BOP 

TIPO- Aventura infantil 
APRESENTAÇÃO- 7 
GRÁFICOS- 7 
SOM- 8 
INTERESSE- 8 
NÚMERO DE BLOCOS- 3 
TOTAL GERAL- 7.5 



MAD FOX 

TTPO- Espacial de ação 
APRESENTAÇÃO- 7 
GRÁFICOS- 7 
SOM- 7 
INTERESSE- 7 
NUMERO DE BLOCOS- 3 
TOTAL GERAL- 7 

KIMPO FIGHTER 

TTPO- Aventura oriental 
APRESENTAÇÃO- 8 
GRÁFICOS - 9 
SOM- 8 
INTERESSE- 8 
NÚMERO DE BLOCOS- 1 
TOTAL GERAL- 8 




LADY SAFARY 

TIPO- Aventura na Selva 
APRESENTAÇÃO- 8 
GRÁFICOS- 8 
SOM- 6 
INTERESSE- 7 
NÚMERO DE BLOCOS-4 
TOTAL GERAL- 7 
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SOS FELINO 



2J *E FELINO -- |tl EsFen 
U ' Copyright 6y SOwn. l9ffi 

70 

BB 1 N I C I A L I Z A R 
98 ' 

1B0 [LFJ*M0:LULm4,4:FEVOFF;SCR£ENl 

,2,0:BIDTH32!C*fjffl[-nflE! 

111 ' 

120 ÍEFINIR BLKTJS FjfiAfTCDS 
130 

i« mnMMBiiiMm) 

POIII,B:NEIT 

150 DATA170,85, 178,85, 170,85,170,85 

160 DATA255,239, 219, 189,189,255,103, 2 

178 DATA36,98, 189,24, 255,24, 126, 153 

188 DATAS6, 189,129, 165,129, 153, 129, 126 

190 FL*]=1536T01543:REAM:VFtrei,A:!eT 

:FffiI-1680TO1687:FSADA;OTi:El,A:NEXT:FB 

Rl=1664TD1679*E«M:VP0tEI,A:tEIT 

288 VP0l:E82I6,9;iVF«E82l7,196lVP0(E82I 

9,160 

211 ' 

228 BOMBEIRO 
238 ' 

240 MTA080000B110008000 
250 1*1108000081881088880 
268 BA1A8088111U111B000 
270 OAIA00B0001001080800 

288 aATA000eeei00i800008 

298 DATB0008000110808000 

780 MTA00081UB01110B08 

S10 WTt00810100B81B1000 

320 W1A00018100B010» 

338 DATAB001B1B00B1B1000 

340 DATA8001011111181000 

358 DAFA0fl8101000B10088B 

360 DATA000001111U80000 

370 DATA00000U00110B80e 

3B0 DATA0888011001100808 

398 OATA00011110011118t0 

400 F»I*015:F»MI:B!»BMHRI|Wtr< 

B'H£FHlAI.81]liCl=CI»cmilWl.r»B-tRI 

SHll(Al,8)ll!«EIT:SFHIIEII0l=BW:i 

410 ' 

428 ' DEFINIR VALORES INICIAIS 



430 

440 AÍ^ , D4tKdd";BÍ="D5cEctí;":B=ia:I=0: 
K=l:E=.75;F>hUH»l!L(2].6iL(il.lltL(4 
)=16:LI5)=16:JNINIERVAL=908EOW30 
450 ' 

468 D CENÁRIO 
478 

480 PLAIA<tBl!FLAVAI,!l:IFF}15MNF.15: 
E=18 

498 CLE:X=32lY'159:LOCATE12,18:PRINT"N! 
VEL";N:FCfiI=0TC2000:NEll:FORI=0TO15srEP 
5:LOtAIE2,l:FRINlC«I(2B0) l SFII261|CHRl 
I208):PRINT;" ^SMN6II3,200);SPC(24l! 
STR1NG*!3,200! 

580 PRINT" ";STRlN6*fZ,200);SlRINGÍ(12, 
1921;" - iSTRIN6ill2,I92liSTRINGtl2,200 
IlpRINT" ";STRIN6«(13,2M);" ";STfi!N6 
l[13,208):PRINFTABI13)|STRINSI(2,280ir 

-;STRIN6I(2,200I:NEIT 
518 FC«I=640TO767:VPO«EBASE[5!H,21f!N£ 
II 

528 F0RI=21018:U)CAlE15,l:FmNlElRIN6ll 
2,i92liNEIliL0CAlE13,19:PRINrSFRMÍl(6, 
1921 
530 ' 

540 ' F R 0 C E 8 S A N E N I 0 
550 ' 

560 imEW»W:EIJT0688 

578 A=STIC»(0l*IYtl]14«7B:IFA=iAHOK 

224M>EE«(BAE£[5|»Bt2)0192!MVPEEIIB 

ASEÍ5|tBt34!O192THE»>=It8:GOTO590 

5B0 IFA.7M1B16AN»HEIIBABE[5)>B-1K> 

192AHDVFEEK(»S£I5]tSt31l<>192THENM-8 

590 IFK=16f*DY>-lMNI=!2:Y.Y-40 

600 IFI>=224FKDY<l59Tt£NI=208:Y=Yt40 

610 INlERVALS!0P:C=«NDimi5ilFC<.751HE 

NL0CATEINI|RNIlll)lllt4|,L(INT(RND(l|I4> 

1I1:FRINTCUH(209I!ELSE1FC<11HEH-XA1E1 

NIIRND(i)UI>17!,LIINTIRND(l]l4tlll:Fm 

NICHRI1209)! 

620 C-R»I11I15:IFC<EIF£H0CAIEIN1[R«ÍI 
1)111*41, LII»HFMII)l4H)l:PRINrcmi(2 
0B)iELSEIFC<FII€ll.IlCAlEINllRNDIl)Illtl7 
l,L[INT(FMU|M.l|l:ffiINTCHRi|2S8)j 
630 I NT ERVAL OH 



640 IFVPEEMBASE(5I»B.33)=289THEIW0|:EB 

«S£[5|tB*33,32:8EEPlS=SH:6OIO680 

650 lFLPEE(|BA5E(S|tB<32l=2B9TBENWÕ!ÍB 

ASE(5)tBt32,S2l8EEP:S=Stl:SOIO680 

660 IFVPEEK(BA£I5)»B»33!=28E«DS>0TPEN 

VPOKEBASEIS|t8t33,32'.S=S-l!PLA< - tl2 - £LS 

EIFVFE£I!8ASE(5l»Bt33)=206A«DS=eTPÍN690 

:S0T0688 

678 IF»FfEHBAEEI5l*B«)=20S(HIS10IHEN 
TOBASEI5l»Bt32,32:S=S-llPLACcl2'aS 
t |FI7P£Et(BÍSE(5|tB»321=?J8Al«Es0THEH69B 
680 PUrSPaireB,(I,y|,l,tJ:G0FJUB7EH:FiOTO5 
78 

698 INI ERVAL OFF:LOCATEll,10:PRlNrFi« d 
e Jogo" 

700 PLAYAt*E»lPLAYAI,Bl:FORl=8TD2000:NE 

IT:L0CAIE9,18;PRINT'Niiviimte (S7»r 

71B IFINr,EY40"THEN71B 

728 Ai»INIEYI:IFAl= - S-0RA|.'5Tr£NPIllSP 

RI!E8,|-32,-32|iSOIO440ELB£lFAI=-N-C«A> 

=-n'THENSCfíEN0:£NDELSE720 

730 INIERV«.S10PiS.S-l:FtAY- i 12- 

748 lFS<81HEN690ELSEI=Hl!6OSUB788:INIt 

RVALOfcRETLKN 

750 ' 

760 LIFE l TIME 
778 ' 

788 IKTERVÍSLSTOP: LOCBTEB , 22: PflINT Tl f e" 

|8|" Ti»e" j T; " Nlvel"lN 

790 

B00 ' PAESSGE» BE NÍVEIS 
810 ' 

820 IF>18THENPU7SPfiITE8,(-32,-J2):T=0: 
N=Wl:E»E*.375iF=Ft.5:FrjRl=8T01!Be:»EIT 
:SOTO480 

S30 INTERVALONiRETURN 
840 ' Al, BI - MUSICA 
850 ' S - LIFE I - IIIC 
B60 E,F - NUMERO K IHSETDS 
878 ' N - NÍVEL DE JOGO 
880 Lll-51 - VERTICAL 
ET90 A - VALOR DAS SETAS 
900 ' B - VALOR HA VlifK DA PO- 
SICM DO BOMBEIRO 



54 CPV 



JOGO DA MEMÓRIA 



10 REM - — Jogo da Mesona 

2BREH Guilherie A. L. da Silva 

30 REM 22/86/88 

4a reíi — ojmms - s.p. 

51 REM Para a linha HSJ 

68 a£AfiiBB8:J0=l 

78 5Cfi£ENl,,8:KEY DFF: COLOR 15,12,18 

88 STOP ON 

98 * STOP GOSUB 1488 
188 REM JOGO DA «BRIA 
UB GOTO 398 

128 DIU CI(16),AÍ(16! I BI116] J FJ,(B] 
138 Fllll4ffiia|40l»(76|:F*(2)*0»(l 
)tCHM(í>6i:F*(3l=Ofl$(l)*ÍMÍt(69|!FÍ(4} 
=CHRtíl)+CHRt(7l) 

14 FI(5)-CHfI(l)*0«|67):Fl(6|=CHRI{í 
)+0«(68);FI(7)=CHM[l) + CHRt(79!:Ft(B) 
<KM|Í|*OM(7í] 
150 SCREEHJ 

178 PRINTTABIS!" Jogo da mor] a ' 

198 LOCATE 8,5 

288 PfllNTTAB(8)'!-!-!-f-!* 

218 F0R0=1TC3 

228 PRINTTABIS)" ! ! ! C 

238 PRIHnfiBO)'!-!-!-!-!" 

24 neit 

258 PHIHTTAfi(8C! ! ! 1 !' 
268 PRJHTTA8 ( 6 ) ■+-+-+-+-+- 
278 LQCATEa,i5íPRIKT'0ualquer tecla par 
a ccaeFar." 
■ 288 At=]Ntttt;IF M=" THEK GOTO 288 
298 LOCATI 8, 18:PRÍNTTAB< Sustou ca l c 
ulandD":GGSUS 1248 
388 FOR 1=1 TO 8 
318 A=INT(lilRMI(-TIHÉ|*l] 
328 IF AOB THEN 338 ELSE 318 
338 1F »(fl|0"" THEN 318 ELSE M(A|=ft 
(D 

34 B=INTÍ16IRND(10|*1) 

358 IF BOA THEN 348 ELSE 34 

368 IF BKBIO" THEN 34 ELSE BÍ(B)=F$ 

(D 

37B NEIT 

388 Z=8:FDRI=1 TD lilfl«Zl«tI}U«Wi 

NEXTjRETLfW 

398 REH 

488 GOSUB 5383REM N.J06. 
418 SOSUB 71B:G0SUB 8B8:REH TELA 
428 GOSUB 860:REM INICIO 
425 GOTO 428 

438 IF P(1)>P(2) THEN JO=I 

440 IF P(2)>P(1) THEN JQ=2 

458 F0fiUslT01888:NEl(T:aS:L0CATEe,:i!Pfi 

INTTAB(5|" Jogo da mona -:PRINT:PR1N 

T:PRINT:PRINT:PRINT 

468 IF P(2)=P(1) THEN PRINTTftB(lB) 'Efffl 
TE!!!":S0T0 48 

478 PRINT-Vencedor(a): -jNIfjD) 

488 PRINT:PRINT*CGn- 0 PLACAR DE"jP(J0); 

■PARES," 

498 PRINT:PRIHT :PRINT :PRINT;PRINT:PR!NT 
:PRINT:PRINT:PRINT:PRINT 



588 S0SUB124;L0CATEB,19:PRINT , JQeAR DU 
TfiA VEZ?(S/NJ":»=INKEY*:IF AM" THEN 
588 

518 ff AICS' THEN END 

528 CLSiRUN 

538 REH NS JOGADORES 

54 as 

568 PSINTTAB(5r Jogo da moria ■ 
588 PRINT:Pfl[NT'Quanto5 JoqadDres 1 ;:!* 

UTJ 

598 PRINT:PR]NT:PfilNT"Bual o no* do jo 
gador 1MNPUT «(1) 
688 IF J=l THEN FKIW: Ml 2)= 'Computador 
-rSI*:G0ro 621 

610 PRlhTGua] d nc*e Úo jogador 2":INP 
l!T Ní(2):S0r0 64 

628 PRINTBual o nLwl ?" :PRINT : F=RINT :PR 

INTTAB!5)"8.Prim:ipiar!te*:PRINTTAB(5!-3 

-Aprendi; ' :PR1NTTAB( 5) '6. Hestre' :PRINTT 

ABÍ5)"9.Profi5Sional*:PRINTTAB(5ri2.Co 

bri':FWNTT»l5) , 15.Eiprt' 

638 FRINT!lNPUT"EK0lha:'iBN 

64 BOSUB 128 

658 LOCATE0,15:PRINTSPC(32) 

660 LOCATE 0,15 

678 PRINT Ml*,»» 

68B PRINTUSING'P)acar:M*iPli 

698 PRINTUSING' PIacar:H';P2 

780 RETURN 

710 REN TELA 

728 COLOR 15,4,11 

73B L0CATEa,ia:PRINTSPC(64):L0rjlTEB,18! 

PRINT" Preste atenção nos pares.' 

74 IF 8N>=15 THEN RETURN 

758 N=B:F0R LJ=9 TO 15 STEP 2 

768 FOR LY=6 TO 12 STEP 2 

770 LOCATE H,LY;PRJNTM(N) 

780 N=Ntl 

790 NEÍT:NEIT;FOR TP=iT03B8B:*n:PfTUR 
N 

888 N=B:F0fi LX=9 TO 15 STEP 2 
818 FOR LY=4 TO 12 STEP 2 
B28 N*=f£II(N| 
838 LOCATE LI,LY:PRINTW 
840 N=N+1 

850 ICi T; NEIT: RETURN 
868 REH JOGO 

B70 LDCATE0,Í8:PRiNTSPC(64l:LOCATEB,18 
388 PR[NT"Jogador*;JG;'(2 ruiteros)";:IN 
PLiTWitlMHIMIKt^.lhat^IMIW,!,!! 
890 IF H*=" THEN 878 
988 T1=VAL("W+B() 
918 rP=VAL|"(jH'mi 

928 ON TJ+1 GOSUB 1888,1098,1188,1113,1 
128,1138,114,1158,1160,1178,1188,1198, 
1288,1218,1228,1238 
938 PI=I:PY=Y 

94 ON TP+1 GOSUB 1088,1898,1188,1110,1 
128,1130,114,1158,1168,1178,1188,1198, 
1288, 1211, 1220, 1238 
958 LMlLW 

960 PLAY"V15L16EF6';L0CATE P(,PY;PR1NTA 



*(TI) 

970 LOCATE U,LYiPRINTAI(TP) 
988 IF TI=TP THEN L0CATE8,I8:GOT0 888 
998 IF AÍ(T1|=CÍ|TI) AND A*(TP)=C1(TF) 
BOTO 1818 

1888 IFAI|Tn=AílTP)THENLQCATE8,19;PRIN 

T"0 jogadc**;,ÍQi "conseguiu* :P(J0)*>(J0) 

♦1 ;L0CATEe,16:PRINTUSINB , PLACAft:ll e ;P( 1 

)[:PRINTUSING* PLACAR: M";P(2):M(T 

1)=» *!M|TP]=" ":M|TI)=M(TI!:tl(TPI= 

Ai|TP!:IFP(l)tP(2)>=«THENG0T0438ELSEPLA 

Y"V15LBCDL16EFGL8AB" 

1818 FORI=lTO1000 : NEn:GrjSUB W 

1828 IF JQ=2 AND W THEN JO=l;GOSUB 87 



1138 IF JOi AND J=l T«£N Jl 
7a:GOSUB92a 

1840 IF M THEN RETURN 

1158 IF JT>1 THEN J0=2:G0T0 B7B 

1068 IF JD=2 THEN 00=1 

1878 RETURN 

1868 X=9:Y=6:RETURN 

1898 I=9:Y=8:RETUFÍÍ 

1100 I=9:Y=I8:RETUfN 

1118 I=9:Y=12:f£TURN 

1128 Ml :Y=6: RETURN 

1138 X=ll!V=8:RETURN 

114 Í=11:Y=18:RETURN 

1158 «=ll!Y=12:RETURN 

1168 1=13 :Y=6: RETURN 

1178 '=13:Y=8:RETURN 

1188 M3:Y=10:RETURN 

1198 I=13!Y=12:RETURN 

12B0 I=15:Y=6:RETURN 

1210 1=15! Y4: RETURN 

1228 1=13! V=10:RETURN 

1238 X=15:Y=12ifi£TURN 

124 REH HLSICA 

1258 PlAr , V15T12aL6H58e8SlÍ05EEFeGFEDCC 



EFS6FE0L5CCDEDCC■ 
1268 RETURN 

1270 F=0:REN JOGADA CO*. 

1280 F=0;FOR K=l TO BN 

1298 L0CATEe,18:PRINTSPCii4| 

1388 RI=INT(I5IRND(1)| 

1318 IF BN>2 AND CÍ(RJ|=Aí(RI) THEN 138 

8 

1328 RP=INTÍi5tRNDÍ-TI*!!:]F RP=RI THE 
N 1328 

1338 IF F>8N12 THEN 1388 

134 IF BN>2 AND CMRP)=AlíRP) THEN F=F 

+l:GOTD 1320 

1358 IF «ÍRI)=AÍÍRP| THEN 1388 
1368 IF EN=B THEN 1378 
1370 NEIT í 

1388 L0CATE8,18!PRINT-Eu joguei ds nfee 

ros: ■jHEI*(RI](HEIt(RP! 

1398 TI=RI[TP=RP:Jsl:J0=2:RETURN 

1400 SCREENB,,1:PRINT'0ESISTIU. E' 0 FI 

H!':KEY DN:CQLOR 15,1,1:00 



BOLICHE 


28 BC4LING - In) by Esfera 


Rl=7B4TQ767;VPOKEBAS£í l >)»I 1 Et4 ; HEJ T : LOC 


B2B IF[C=3AND[FM0RF=3))[)R(C=2AM)(F==60R 


38 ' Copyright 1988 by SChan 




F=5))THENr=138TZia!Vl=88+Zt8:E=3:H«='4 


SI ' 


jja l TTATCTO 1 *. .E*íMTrt*ií .riAlí 1 QJ 
440 LUUH 1 Ltc, 10 IrnlNrLnr* 1 J7 j J JLnHil 1 th 


MtlEs'iN s 6;60T092B 


68 INICIAL I ZA 


) ;L0CATE27:PRINTCHRt(194)'CHR((196)'QI) 


338 IFL>4ANDiF=20lff=l|THOfí:138jYl=8B;Z 


78 ' 




=1:E=1 :Mt="5 Bottles":N=5:BOT092fl 


88 CL£AR5H:COLOR1 ,10, 1B: K£V0FF :SCKEN1 


458 L0CATE27:PRJNTCHRt(194) , CHM(196)jC 


340 IFC*2AND(F=SGRF=4)THENY=I38+ZtB;Yl= 


,,B:NW(fl2:DEFUSfl=*H41:DET^l=4H42 


lljt i 10J 1 .1 rVATC^Q.OGlWTrL**! IQ71 iPUOtH 

FH»l 174 p LULH 1 t/o í nu nlufiíU 77 | JL/tít-U 


80+ÍIB;E=2:N$='4 Bott]BE*:B=4:S0TD92B 


98 


94) !EOSUB18W:A=USfil(0) 


358 IF(C=3AND(F=2H ::: 1))DR(C=1AM)(F=50R 


188 ' DEFINE BLOCOS 


448 FQRI=0TO2!PUTSPRITEÍ, ( -32,-2) iNEIT; 


F=ê ) ij THEN¥=138+Z tlB ! ¥1 =88+ Z tlB : £= 3 : MS= '■ 


UB ' 




3 Bottles":M=3:Q0T092B 


128 BEEP:PLflY*L7V15O4DCD[)CC03BB0ÍFEFFEf 


470 IFINÍIYÍO"THEH470 


868 !Fll>2ANDtF=10RF=21)0R(C=lAND|F:30R 


UUrtr ror tHJrr bt£Lrr 


488 ' 


F=4i)THEN¥=13a+Zia:¥l=88+ít8:E=1.5:r»=* 


1 30 F[JíI=3SÍTD98J! VP0KE1 ,yF££K( I )Q(ÍVPEE 


498 'ESCOLHA R U 1 0 


2 Bottlre';N=2:6OTO920 


KÍI!/2:NEIT 




370 IFf>lANDÍFslORF=2)Tl£NY=138+IllB:Yl 


148 DATAI 70, B5, 178,85,178,85,170,85 


510 C=flfL0CATEH,i2;PRlPÍT'' ":L0CATE6,12 


=88+Z(10:E=l:r*=" 1 Bottle" :H=i ;GOTO920 


150 DATAI, 3,6, 12, 25,51, 183,287 


Irnim s prL^i^o iui 3i3itr^,ruiyrw i ti, l 


S80 Y=138!F0RK=8T0239STEPF/2+l:PUTSPRIT 


140 DATA12B,192,96,48,152,2B4 ( 238,243 




E0,(I,Y),l 1 0iPUTSPRITE2,í80-[13B-Y),78- 


170 DATA255, 195, 153,145, 145,153,195, 255 


jld iriníLi»- i ntníoe 


H/5),l,fl 


180 DATA255,255 255,255,255 195,185,165 


538 NEiT:F0RI=152TD8STEP-2:PUTSPR]TEl,( 


B90 Y=YtZ:IFZ=.5THENIFY>=D!HENY=D 


198 DATA165, 185,195,255,255,195, 185,165 


1,371,1,1 


988 IFZ=-.5THEHIFY<=DTHEW=D 


iW 1JHIH1Ò3, 103, !V3,i33,^33,i33,i33,^33 


540 1F INKEVt=" 'THEN568 


910 NEXT:GOTO970 


218 DATA255 255 255 255 255 255 255 255 


.558 NEXT:BCTO510 


928 FOfiX=8TO220STEfí:PUTSfflITE8 1 Uí l Y),l 




568 FORI=BTB100B:!€XT:IFÍ<84ANDX>76THEN 


,B:PlíTSPR]TE2,ÍYl,7B-X/4.5),l 1 B:NEXTiF1. 


238 DATA255, 249, 249, 249, 249, 249, 249, 249 




AY'sl0t400tl4B 1 1 2cec f etidcc ' í P=P+tl : S=S+« 


248 DATA68, 126, 251, 149,249, 251, 11B,6B 


S7fl Tnv/--WAUiwwninci>\-o,iAunv/nHTtj: 


938 L0CATE21,12:PfiINTf« 


~ca VTflfl li. IL li U C.L ' TA IÇi 

íJB íJHIhw, 16,1o, lo,lí),Do,u1,íM 




948 ' 


100 rUm-ll/iiUl^/T.KLHliHSYnJFitl ,H!NC* 1 


588 IF(Xí=68ANDX>60)DR(X>=92ANDX(lB8)TK 


99B ' NOVO NÍVEL 


270 F0RI=1536rQ1591:READA:VPOKEI,A:NEXT 




968 ' 


288 RESTOR£210:FORI =1600101423: READAi VP 


59B IF(X< = 60ANDX} = 52)QRiX}=10BANDX<=108 


978 IFB=1THENM:G0T09B8ELSEB=B-1:60SIJB 


n£i|Aicn 




1B5B :F0ftI=flT01B88: NEXT :G0T044B 


298 FORtr^TGi :fl*=":F0RI=BT07:READA:M= 


OW 1F Won JntNiJ-lJC. i- í j 


9B0 f£EPirUY"V12il6CDE05a)E03a)EDai2BB 


A*+cm*(A):NEllTiSPRirElfH)sM;HEíT 


□ 10 Ir i Wolnt™FlZc!£- #3 


03CC04CDEDC03BB04CC' 


tju iioíiitotic. i h ■ motivado 
HM vrllttoilD,lli:V™t«16,llliVrllttH 


620 L0CATE6 12:PRIMT" ":L0CATE14,12:PRI 


99B GOS(jB1850:IFP>=QTHENLBCATEi,20:PP]hf 


1 7 , 3 1 : VP0KE82 18 , 22 : VP0KE821 9 , 24 1 




T'QUALIFICATION REACHEB": FOR l=8T0 2008 :N 


318 


430 IFIHHE¥S0*"THE(tó3B 


EJT:LOCATEt,20:PRINTSTRINGÍ(21,219):Q=O 


328 ' VALORES INICIAIS 




tl0:P=B:B=8ELSE1188 


338 


ita 'rcrniuA anuro 


1000 IFg>58THEN6=Bt!(S-50)/10) 


J4B B=8:Q=28:P=8!S=8 




1818 GQSUB1B50:SGTO468 




470 F=B;FORX=8T0152STEP2;PUTSPRITE1,(Í, 


1028 1 


368 DESENHA TELA 


87) 1 l:IFÍNKEYi=* "THEM708 


1838 ' PLACAR 




480 NE<T:F0fiI=152T08STEP-2:PLÍTSF1!JTEl,l 


1B40 ' 


388 A=USfi(B):LDCATEB B;PfilNTSTRINGÍ121 


X,87),l,l:IFINIiy$=" 'THEN78B 


1058 LOCATE22,0:PRIrfT'BoHÍÍnq I':LOCATE 


1B4 J ■ F0RI = BT08 : PRINTCHRí ( 184] fSPC( 19) {C 


490 NEÍT:80T067B 


21,2:Pfi!NT'Quali";Q:L0CATE21,4:PfiINT , Po 


H?I(184):NEn:PRINTSTRI(í>í(2I 164) 


70B IF)í>14eTHENF=i 


int";P:LCCATE21,6:PRINT , Ba]l5 , i 8 


òtC Hí^omlloll / ,jT1tJ JLULJiltl ,l;rnlNIH» 


710 IFÍ>130ANDÍ=<14BTHENF=3 


1060 L0CATE22,8iPflIriT'-ScorB- , :L0CATE21 


■CTOIU?*/ cl 90a\ ,jU 4 | nrflTCT ^iWTMTÚtinj 
J5 IH3 Nb»l 3 i £Cwl |H*:LULHltl ,i :;rMN[H>,ui 


72B rFX>128ANDX=<130THENF=4 


,9:PRINTSPC(11 ) i ;L0CATE21 ,9:PRMSi iRET 


5* ' .CTOTU^t <A IfllliU 
Xí\ltll) jOJKlNUH 9,101 1 ,H> 


73B IFX>liBANI))l=(120THENF-3 


IM 


«B rUHWIUl/iltr/ILULíiltllH^lZlri 


748 IFI)lB0ANi}I-(U0THENF=2 


1B70 ' 


l/2:PRINT5TRINGf |A,219) ;CHRÍ(192j jSTRÍN 


758 IFI>=90AHQ1=<108THENF=1 


1868 'GANE 0 V E R 
1890 ' 


Gil 1,198) |CHRt(193);STRÍN6l(A,219):NEXT 


760 ' 


*10 LUL*lt,n!rMNllíi™UW),0lKI(inU7 


77B' PROCESSAMENTO 


1188 LOCATEil ,2B:PRINT"Bflfft OVER 


,219);STRINGt(12,184);' , course p 


7B8 ' 


1UB BEEPiPLfly-VlKDECCCBCWC- 


Dwr';Ofit{134);3PC(10);CHRt{184); 


790 IFC=4AHD(F=60l!F=5]THENY=lJB:yi=8B:E 


1128 ]FINKEY$(> , 'THEM112B 


428 PRINTSTRING»I32,1B4);íA$=C*$(1B4I+ 


MiflM' StrÍke-:N=l€:G0T092a 


1138 IFINKEYt=* , THEN1138ELSE34B 


STfiING«[3B,2i9)€l«(184):B1=CÍ«U84|T 


888 IFC=4AKD(F=40RF=3)T)C)rT=138:Vl=ae:E 


1148 


STRING»(3B,19B)tO«(1B4] 


=2:«*="B Bottle5":N=€:G0T092fl 


1158 ' S - SCORE B - BAUS 


43B F0RI=BT01:PRINTA*;:!£XT;FQRI=eT03;P 


81B !Fl>3«ffl(F=6aíF=5)Tiefi=13Bt7i4:yi= 


1148 ' Q - OJALIFICAWC 


RINTB*;:NE);T:FORI=eTQl;fHINTMi:*XT:FO 


88+r(4;E=4sH*=*7 8ottl«":N=7iXT092B 


1178 ' P - POINTS C - RUMO 



56 CPU 



ASSINE CPU POR 6 MESES 



PREÇO ESPECIAL ATE'l5. 12. 88 



DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERÍODO 
DE SEIS MESES. 



PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A ÁGUIA INFORMÁTICA, OU VALE POSTAL 
(PAGÁVEL NA AGENCIA COPACABANA), NO 
VALOR DE Cz$ 4.000,00 (QUATRO MIL CRUZADOS). 



CPU 

LEIA E ASSINE 



NOME: 

ENDEREÇO : 

BAIRRO : 

CIDADE: 



...CEP: 

...ESTADO:. 



DADOS DO EQUIPAMENTO : 



ASSINE CPU POR 6 MESES 



PREÇO ESPECIAL ATE 15. 12. 



DESEJO EFETUAR A ASSINATURA 
DA REVISTA CPU PELO PERÍODO 
DE SEIS MESES. 



PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A ÁGUIA INFORMÁTICA, OU VALE POSTAL 
(PAGÁVEL NA AGENCIA COPACABANA), NO 
VALOR DE Cz$ 4.000,00 (QUATRO MIL CRUZADOS). 



CPU 

LEIA E ASSINE 



NOME: 

ENDEREÇO : 

BAIRRO : 

CIDADE : 



...CEP:- 

...ESTADO :, 



DADOS DO EQUIPAMENTO : .. 



AGLHA INFORMÁTICA 



CPU 



LEIA 

PARTICIPE 
ASSINE 



CPU 



LEIA 

PARTICIPE 
ASSINE 



Comapalavra,um Expert: 



I 



3 





Se você ainda não me conhece, tenho certeza de que já ouviu 
falar muito a meu respeito. 

Sou Expert MSX, o micro projetado e construído pela má- 
quina mais perfeita do mundo: o homem. Com toda a tecnolo- 
gia e vanguarda de quem sempre pesquisou e evoluiu para tor- 
nar a vida do homem muito melhor: a Gradiente . 

À imagem e semelhança da Gradiente, sou um pioneiro. 
Meu design, modemoeprofissional. inaugurou um estilo. E até 
hoje eu sou o único a lhe oferecer teclado separado do console. 
Tenho 3 processadores, processo informações 3,5 vezes mais 
rápido que meus concorrentes e meus arquivos são compatíveis 
com IBM-PC". 



Claro! Todo homem quer crescer nos negócios e na família. 
E quando isso acontece eu continuo lá, útil e prático, ao lado 
dele. O melhor testemunho de minha qualidade é o tempo de 
garantia que me acompanha: o maior que você pode encontrar. 
E para sua comodidade, tenho também a maior rede de assistên- 
cia técnica do país, dez vezes superior a qualquer outra marca. 

Entre softwares, tudo que você imaginarem aplicativos e jo- 
gos eu aceito, entendo e decifro. 

E como se tudo isso não bastasse, existem vários periféricos e 
livros disponíveis no mercado feitos especialmente para mim. 

Expert MSX da Gradiente. 

Conte comigo. 



)gradiente 



